&a*\ 



Build — Proqram — Create 



.<? TECH Amiga 




sK 



ysiob< 




'Jn/' 



/ 



REXX Rainbow Library 
Programming the Amiga 

in Assembly Language: 

Making Waves 
All You Ever Wanted to 
Know About Morphing 
Create Your Own Custom 
3-D Graphics Package, Part I 
StateMachine 
Programming in PostScript 

^rlzifzlj/ara ?ro]ach 

Build a Second Joystick Port 
For Your Amiga 

Plus 

much more! 





Volume 5 Number \ 
US $14.95 Canada $ 19*95 











FAST AND POWERFUL PRODUCTS FOR AREXX 

Compile your ARexx programs with the REXX PLUS COMPILER and they will execute 
up to 18 times faster. The Intuition Interface allows even the most novice user to 
execute their programs at warp speed. Explicit error messages make debugging a breeze. 
The REXX PLUS COMPILER generates a listing that is easier to read than the original 
source. The listing contains nesting levels, flagged comments, a symbol table and a 
complete cross reference. Version 1.3 is a major upgrade that generates 40 to 60% 
smaller programs. All REXX RAINBOW LIBRARY SERIES functions can be included as 
part of the language. 

Don't just take our word for it, here is 
what some of the experts have to say 
about the REXX PLUS COMPILER .„ 

"...A SIGNIFICANT NEW PRODUCT 

WHICH ALL AREXX PROGRAMMERS 

SHOULD HAVE/ 

Amazing Computing, June 1992 

'...THE AUTHORS HAVE IT RIGHT... 

IT COULD WELL BE A FUTURE 

AMIGA CLASSIC." 

Amiga Computing UK, November 1992 

"...IS A WELL DESIGNED UTILITY THAT 

DOES ITS UTMOST TO SUPPORT THE 

COMPLETE AREXX ENVIRONMENT IN 

A TRANSPARENT FASHION." 

Amiga World, September 1992 

"...DOES THE JOB AND DOES IT WELL, 

EVEN ELEGANTLY." 

Jump Disk, June 1992 
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DEMO DISK AVAILABLE- 
p= Dineen Edwards Group 



19785 W .42 Mile Rd ., Suite 305 
Soulhfield. M! 48076-2553 

* 313-352-4288 



The REXX RAINBOW LIBRARY SERIES is a 
complete product line of support libraries 
designed specifically for use with ARexx. 
Each volume in the Series contains functions 
dedicated to a specific subject. The first 
volume in the series is the Stem/Array 
functions. It provides over 100 functions to 
manipulate single dimension arrays, which 
simplify ARexx arrays, Compound Symbols, 
Pointers and Subscripts. The functions 
include siring manipulation, mathematical 
and scientific calculations and file- access. 
Also included is the AssgnArrayO function 
which assigns/retrieves arrays from/to other 
ARexx programs. With this function you can 
build your own single or multiple dimension 
array functions. Tutorials and examples arc 
used throughout the manual. The REXX 
RAINBOW LIBRARY SERIES requires ARexx 
and works with or without REXX PLUS. 

Arittft Dm, Is i rrf man* lr***mjrt p< UmAodOfl hUMH ttidtom Ultn H I 
(■fntwrt IrMtanUrt 01 WnJWal TbatMf. 
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printf ("Hello" ) ; 



print "Hello" 



JSR printMsg 



say "Hello" 



writeln( "Hello") 



Whatever language you speak, W'h I II II 

provides a platform for !»<H li gaining insight 

and sharing information on its most 

innovative implementation for the Amiga. 

Why not see if your latest programming 

endeavor con help a fellow Amiga user 

expand upon his or her voeabulary? To be 

considered for publication in AC* TECH, 

submit your technician v oriented article 

(both hard copy A disk) to: 
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Correspondence 



The following letter is from Paul Castonguay. U 

ions raised by readers regarding 
%aB ASIC subprograms. 



AmigaBASIC SUBPROGRAMS 

In all fairness to the folks .h Microsoft, I would like to point out 
,111 Inaccurate statement you (Paul Castonguay) keep making in your 

In thorn you state that an AmigaBASIC SUBPROGRAM 
cannot invoke another SUBPROGRAM I don'l know where jran 
this idea, but it Ls not true It does seem to be a widely held myth, 
however.. l'\ t seen this statement in print before. AmigaBASIC does 

have ils shortcomings Fair about n 

them. 

Mr. Probst, Columbia, MD 

You're right, I think, Yes, an AmigaBASIC SUBPROGRAM 
nn okmg Another SUBPROGRAM does seem to work, and yes. it is a 
widely held myth. I did some research and uncovered the lollowing 
on page 442 ol "Advanced AmigaBASIC", by Tom K, Halfhill it 

es Hr,in.rn .1 II' Publications, 1986, which may have led 

mc Hfray 

"There are a few disadvantages ol subprograms, , They can't be 
•md one subprogram can't call another subprogram." 

Since I 'A.i- .in earl) userol the Amiga, I suspect that I had the 
misfortune of reading that before 1 thought of trying it on n 

loo bed I run e published many a program that would have 
been better written if only I had known thai I could do this. Indeed. I 

curtailed the publishing of articles about general purpose 

libraries of SUBI'Ki.X IRAKIS -imply heca use I though I that ch- U! 

not be invoked reliably from anywhere in a program. 

I tested your correction and found it to work, as you have 
reported. The only operational restriction I could find was that no 
SUBPROGRAM could be invoked twice, either bj itself recureh 
by another through some recursive connection of SUBPROGRAMS. 

At the same time, 1 checked my AmigaBASIC manuals but 
nowhere is tl exptix ill) staled that a SUBPROGRAM really can invoke 
another, although the Implication is strong thai it can Is that enough 
to openly say that it can be done reliabl yl Has I h 1 s been thoroughly 
rosofl does not continue to support the 
EC we could al! find out for sure, lis possible that 
there are limitations to this For example, many early versions of 



BASIC allowed only a limited number of levels of SUBROUT1 \ I or 
SUBPROGRAM calls, some as little as eight 

Since you have pointed this out 1 will no longer make the claim 
that an AmigaBASIC SUBPROGRAM cannot invoke another SUBPRO- 
GRAM, However, neither will I say that you can, at least not until I 
find out for sure how reliable it is to do so. 

Thank you for the correction. Alas, it may be too late anyway, 
since AmigaBASIC is no longer bundled with the Amiga, ! 
unfortunate that over the years no Amiga users have chosen to write 
an article to clear up this popular misconception about AmigaBASIC 



The following is a correction to the listing in Bill 
Nee's Assembly Language & Computer Simula- 
tions article, AC TECH 3.2. 



fLISI 






: 






depth 


= S4 




jam2 






raousebuttons 


SB 




. 


* SHOD 




ww. screen 


= S2e 




ww. rport 


* $32 




nw. screen 






custotnscreen 






rutb 


= S1000 
L0000 












■ S2 




! : •'. 


* S4 






= $10000 




;exec 






openl ibrary 


» -552 




. brary 


= -414 






* -198 






* -210 








•agisters used 




= -138 


;no registers used 


; intuition 
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open.Bcrt"-'r. 1 96 






closesereen a -66 






openwindow = -204 






. 






viewport add r «39 


; a 0= window 




. . 






setdrmd 354 






• 




' 








• 






Sum eq , 


















bb 






aa 






len 


• 










: 






•■ > 








;Co cei 






;to ci 






















- 


;byl • 


. I 


. 


; long words pc 




- 






••: ' 


; array 




;kJ 


■ ■ ' ■ 






jdefault 




odj 






syslib n 


; tro'-' 





syslib r 




move 


4,a6 










■ : : : 












lea 






• 


. . 




; , ., j 










: 

endm 
opens creen na 

beq 



d0=»i 












low 
be ; 



wovoa 

endm 



TO 

beq.. ilthy\8 

cmf' , do 
















. 




: 


I 






: 


















. 
















; 






. 




. 


: 


beq. s 






. 




• 


biii 4 j s 


















move,b 


\2tfi 





. 


#50, dS 




• 






addq . b 


















klq.b 














• 
































addq.b 


■l.bb 






moveq 


. 










moveq 

























- 









;i4 t.i+bb 
;new 



(continued to page 58) 
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REXX Rainbow Library 
Volume of Stem/ Array Functions 



by Merrill Cattau 

nhe REXX Rainbow Library Series marks a new and useful effort by 
the Dineen Edwards Group, who brought us the RexxPlus Com- 
piler. This new series of ARexx-specific libraries is arguably more 
important than the RexxPlus Compiler in the scheme of things, but the 
RexxPlus Compiler adds an interesting connection to the Rainbow 
Libraries. As you may know, if you program an application that uses 
functions from a shared library, and attempt to export or distribute it to 
an Amiga that lacks that library, then it will not run. The other com- 
puter must have the library aboard. In the case of freely distributable 
libraries, such as Willy Langeveld's rexxarplib. library, you simply send 
along a copy of the library. But Dineen Edwards is commercial, and 
you cannot distribute any of the Rainbow Libraries without a license. 
However, because of the compiler options in RexxPlus, you may "build 
in" the functions from a Rainbow library at compile time and the com- 
piled product will be distributable without further license, and the 
library need not be present on the other system. Dineen Edwards has 
changed their policy and absorbed the former $10 licensing fee for 
distribution of RexxPlus compiled programs into the price of the 
RexxPlus Compiler. A complete set of routines and libraries are in- 
cluded in the Rainbow Library Disk for RexxPlus (RP) support. I did 
not compile the examples given here because of a problem in my com- 
piler that was not fixed in time. By the time you read this, there will be 
a newer version of RexxPlus. I found a glitch in a pre-release Stem/ 
Array Function, and Mark Edwards of Dineen Edwards called in my fix 
data (a CLIzap program comes on disk) within eight hours. That's 
service! The Stem /Array Functions worked very well. 
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Adding Stem/Array Library to ARexx Library List 

The firs t of the Rainbow Libra i ntaira 1 07 

array (unctions, much like those in the standard ARexx fur 
except I hat these functions act on one or two single-dimensional 
.i! '..I uually output to a third "answ< In add the 

Stem/Array (SA) library to your ARexx library list, from a Shell 
prompt> 

UUI CMUrrty library -111 

a he re the I i brary name is < keywords are 

"priority," "offset,' and "version'* respectively, Inside 

program the following code accomplishes the same thing. 

CKLLU»L»l'»KK|««y,IUHr«]r.O r '>0,D» 

Syntax 

The SA Junctions share a si milar syntax. If th>. Liar 

ARexx function, IheSA name is a composite of the regular ARexx 
function name with "array" concatenated to it. For example the \ 
function I AS I PC W | ; . unctions that 

don't share a com : regular ARexx function have an Intuitive 

name su< ha* \DOarrayf i which ADDs two single dimensional i 



U«!0M>4. 



I' pga txtfrnmat *l 

KUtal 

auAWarrayJMU. ,Dal.,gul. , i, 1 1 

MI ■ 

*■ Hr ■ ntuiu & far th* 11 whir or cnapoonri ir**>' tokana 

•• «!•■• '. trm iIm fcav* cott*et tjitui 

" xMKtarray iWB . ,wMl. . Ml r , ceo* t, a tart I 

••■-AHtarriyrjJtt.&itfUVtMft.l.li 

•• c*it MUarray cut ,. mmk .. MM ... I 

•• »M»array<Ni*.HaA.M*] 

•• Tba abova say 14c r«t«n tfaa aaaa valuai ai thay dapaodl on what 

•• TUDU of kxbA.O tbd ajoU.O are. ai.tbOB0h tfeay ara OH La tyata*. 



Syntox Conventions 

The answer array, if ■• 1 put in a DO loop to write il u> the 

console would have elements I through 5 iwo arrays. 

is uninitialized, rh 
numeric array function or the null string ' g arrav function. 

OK. but you will get an error if you u 
DiVIDEarrayO function end Irj todh idle by rimer dor a compound 
bol token that is nol initialized. Another convention is that if the 
COUNT is left off, then the COUNT»MAX<numA.0,num8.0) in the 
resent, or |ust the Oth element of num 



A complete set of routines and libraries are included in the 
Rainbow Library Disk for RexxPlus support. 



ier. Ihijrgumo 
have a family resemblance, b 10 •. vr" array always comes 

first, the actual argument b una for the answer 

array. If you leave off the period (,) at the end of the STEM, SA will 
add one for you. In general all arrays are named by their Stems, the 

i ii the array with exactly one period at the end , For purpo- 
explanation, we will call the anew stem AN'!-- urse 

you may name it anything. As soon as nodes index an arraj 
stem node A. m >deB.nodeC etc. becomes a compound symbol token in 
ak There arc up to two IN I'll . will 

tall num A and numB. (even though they can be string arm 
'.soil o! ioursethey may be any stem name at all in yourprogri 
The general pattern of argument syntax is AN5.,numA.,numB. J but 
there are some e» In general me lasl two vguments art- the 

I and the START nu t N r and S I \ RT are optional 

and there are convent i Usee later. 

Assume we have two arrays num A. and numB and we want to add 
ihem element by element, starting at element 2 and adding 5 elements 

and assign the results of the addition into an array called 
ANS., then the ADDarrayO function m a program would look like this: 



only one is present. If either numA.tJ i sent as 

an argument) is unlnil -assigned IfnumA.l) 

or numB.O If umeric value, then a numeric 

conversion en, ii<-d, then 

START*! becomes the convention. I think there ought to be a 

ike care of division bj zero in Ihecisi 
uninitialised compound symbol token in numB., as the manual 
that making an uninitialized compound symbol was to avoid 
numeric errorst 1 a put in a into numB 

should there be. u error. 

A Syntax Exception 

One rnajv .nO which is the most 

powerful functM lot Plain ARexx does nol allou you to pass 

intact arrays to an ext. <tx program from a main program, nor 

i a Uom '•• ou i" gel an arrav bit k to the calling program from the 
subprogram, The on K waj to pass .in intact array in ARew is to an 
IN I IRIOR fumtion called a TROCEDURL. Here, vou may pas? 
5TEM. anil the COUNT as a I • it ire a rra \ will c,i i 

over With ASSK iVn 

ailing program inside an EXTERIOR function program, you can 
G arrays from the program that called the program that 
called i he rein! ASSlGNai , ou specify how mans 

lev eU it ,ir . 1,1 go [, LW y. |,, , ,p| lim its 1 a I ues! 1 his argument is 

called N1ST LEVEL iN'l.i .ailing it ihe inpul stem or array. 
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I he SA manual calls it the VALUE item. Hie output array is called the 
ASSIGN stem by SA. I prefer 10 think: FROM thi? value array TO the 
ass igna " ay In FROM nnd I terms, the argu ment syntax is 



M**lC*Mrt«ri'» "L. *>. »M 



i-.nai A«,rw i«.,(m(,iiwti 



Any function may be CALLed to discard the return value. Hen? the 
function returns the number of compound symbols it Assigned in the 
sim p le s\ m bol . n ind Start may be omitted and the syntax will 

follow the above < inS. The Nt \ Li lullow* this 

convention: I.) means THIS program; 1 means ONE program back (me 
one thai called this one}, 2 urn which called the one 

cal led this one; etc. Entire t be assigned by 

ASSlGNarrayO within the same program (both Tl I N I ' .ind 
FROM_Nl ne Commonly, you will aide two calls to 

ASSR.NarrayO, one to GET the array from a calling program and 
another to PUT the processed array back lo the calling program. The 
example program* SAnudu ■• mhne, SAsort.rcXX 

which uses ASSIGNarrayO to get the array UST. from the calling 
program, sort ihis array, and then put the sorted array back to 
SAnodupes rexxby using another ASSIGNarrayO with the four TO 
and FROM argument*, rex etsed, The original STEM., COUNT, and 
S I AR I are parsed tn the external function, SAsort.rexx in the normal 
way as argument. 

Ttie second example shows SAtester.rexx, a progran ■> 
the functions and stud) the way the arrays are processed. It uses an 
INTERPRET instruction as l lions which are 

built up via the powerful string hand I it-. Ironically, 

tiir i\ [ I KI'Ki [ n cannot be compiled with Rex\Plus 

successfully, as it is loo self referential for i 
requirements SAteslerrexx will work very well with the resident 

x mast, however You W ill need the Rainbow Stem / A rray 
Library to run th. 

I look forward to the other Rainbow Series Libraries, as they will 
undoubtedly enrich my ARexx capabilities. If you plan lo distribute 
programs using the R.i d suggest buying the 

Compiler, as thai is the most economical way to export these functions 
without further licensing. 



SAnodupes,rexx 



* * SAs - .-: uses Ra inbow Ser i es St em/ A l 

; •;- alia the sort routine SAsort . rexx as an 
■ xt • i 

where the array here is assigned there 
AssignArra 
" ' ied value is the number of v; r ed. The 

: program alters the values of the array (ram 

a that the final array written at the end of 



this program 

. the sorted at ; though it is th* rray 5 
" copyright : by Merri 1 1 Cai laway 



PULL inf tie 

CALLTIHE('R') 

rcodf 

r-ail'textfile'.infile, 'READ') THENDQ 

rcode=0 

e an entire aj 

DO WHILE -EOFi *t*» 

B'l 

THEN DO 

DO WHILE line.!-*" 
PARSE V 
WOI 

/* N i cannot use an array ac a NOI 
f* Get rid of punctuation at end and 
of wards. * 

DO FOREVER 

IF DATATYPE (word, 'N' 1 THEN LEA 

DATATYPE (RIGHT {word, I) f MJX>. HEN DO 
rEMGTH<wordJ>l THEN 
word= LEFT (word, LENGTH (word) -1 i 

END 
IF -^DATATYPE <LEFT t word, U . M : : 
LENGTH (word I >1 THEN 
RIGHT fWOttl LENGTH (word) -1) 

END 

DATAT: MDrtUKH 

THEN LEAVE 

£NGTH<word!!=0 THEN LEAVE 

/• end punctuation removal •/ 

IF word ITERATE 

■.•sting of 'random access" an 
d.word THEN ITER 

liBted„word=l /* boolean *y> 
list .nu word 

END 
i-i 

IF line.i * *' THEN i 
END 

Ld not open your i i 



/* Adjust thacoui 
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/* Call the oxtenor function program. */ 

k=SAs( 

SAY k 'entries sorted. ' 

orteda: .Hconsoi' 

SAY 

/* For time comparisons of this pgm with others. V 
SAY -Elapsed time is 'TIME* 'E' ) ' seconds. * 

-.ode- 



SAsort.rexx 



** SAsort.rexx 

* * An external f unct ion which may be cal led from any 
** program, with a list in array form. The stem, the 
count. 

•• and the start are passed as arguments, picked up by 
this 

* * program, and by means of AssignArray ( \ are recons' 
euted 

■ ■ nto an array to be sorted. At finish, the array is 

*• back to the one from which it came. 

* * YOU MUST HAVE Rainbow Series Stem/ Array 
rexxarray. libr 

•" TO USE THIS PROGRAM! It is available from: Dineen 
Edwards Group* 

'■5.2-4288 OR this pgm must have been compiled by 
RexxPius . 
••This program copyright 1992, 1993 by Herr ill Callaway 



/• Load the rexxarray . 1 ibt . 

IF -SHCWt 'L', 'rexxarray. library ') THEN DO. 
CALL ADOLIBT rexxarray. library ',0,-30,0) 
W('L' , 'rexxarray. library ] THEN DO 
SAY 'rexxarray. library failed to open. ' 

EXIT 5 

END 



" 



Feed the array to Shell Sort directly! 



/* get the name of the stem, the count m. and the start 

va 1 u i : ' 

,m, start 



alized if compiK 



• 



/• 

*• Call Rainbow Stem/ Array Library AssignArray (J funci 

"• Assigns stem from the calling program at level 1 nest 

to list, stem 

•* in th is program level for m count ■;■ it start. 

• • Sy nt ax £ or Ass i gnAr r ay (I Ass ign TO and Ass ign FROM t 

• • { TOLLEVEL, TO_STEM . FROM^STEN, FROH_LEVEL, COUNT , START) 

*■ means THIS PGM; 1 means ONE LEVEL UP of calling pgms. 



CALL AssignArray <0, list. , stem, l,m. start} 
list length >m 

00 WHILE ispan < list length); span = span * 2; END 
DO WHILE (span 
span ■ span % 2 
numpairs * list length - span 
DO node = I TO numpairs 
next node ■ node + span 
IF list .node > list .next node THEN 
DO 
store ■ list.nextnode 
list.nextnode * list. node 

DO bubpos = node-span TO 1 BY -span WHILE < store 
< list. bubpos] 

next node • bubpos + span 
list.nextnode ■ list .bubpos 
END bubpos 
bubpos ■ bubpos * span 
list. bubpos ■ store 
ENI 
END node 
END 

/• the end of the shell sort of the words "/ 



iign TO stem there |1> . FROM list, here 10) , for 

list length. start V 

CALL AssignArray ( 1 , stem, list . .0, list length, start ) 

EXIT list length /• entire exterior function returns how 
many words sorted • 



SAtester.rexx 



f SAtester.rexx to test theS/A functions •/ 

SIGNAL ON BREAK_C 

STMT; 

SAY 'CTRL-C to quit . " 

SAY ■ Enter a 1 ine of separate numbers as Array A ' 

SAY * |Rtn] for a default Array 

PULL lino A 

■ * * THEN 1 ineA= '258100.5' 
SAY 'Array A is' 
SAY lineA 
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SAY 'Enter a line of separate numbers as Array 
SAY ' [Rtn| for a default Array B. ' 
PULL lineB 



SAY 'Array Bis' 

SAY 1 ineB 



15 4 5 0.1 



i=0 

DO WHILE lineA -= " 

parse var 1 ineA numA. i lineA 
i*d*l 

END 

DO WHILE lineB - = ' f 
PARSE VAR lineB munB 
3 = 3*1 
END 

>:ii-l. j-I) 



SAY 'Enter Stem/Array function name you wish to test. NO 

• 

funname=aaf 

■■'■ 
SAY ' Enter number of arguments . ' 
PULL numarg 

SAY 'Use numA & numB as INPUT array names - ' 

SAY 

DO a=l TO numarg 

3CT 

ANS' 

WHEN a=2 THEN ending ? 'numA' 

THEN ending = ' 
OTHERWISE 
END 

SAY ' Enter argument No . * a rtn I I ending 

PARSE UPPER PULL argument .a ' . ' 
IF argument. a=' ' THEN argument, a =endmg 
riumarg THEN saf = saf I I argument ■ 
ELSE saf =saf I (argument. a' i ■ 
SAY saf 
END 

SAY 

SAY 'OK to interpret? N=ex 

ok 

*='N J THEN EXIT 5 
saf="m='saf 



INTERPRET saf 

SAY m' array elements processed. * 

nxt 1 =numarg- 1 



bi r- largumenl .numarg 
count =argument . nxt I 
IP -DATATYPE (count. r w 
IF -DATATYPE < St rt, K'| 



THEN count =MAX<nu 

THEN fit r I 



SAY ■Count, 'count 

SAY ' Start = J strt 

IF tuTuiame-='ASSIGNARRAY' THEN DO 
ans=argument .11 I " . ' 
SAY * Answer_St cm . is 'argument. 1 
END 
ELSE DO 

r-unent .211*,.' 
SA¥ 'Assign_Stem. is 'argument. 2 
END 



Bf 

SAY funname 'answer tat 

DO k=D TO w 
SAY ins Ilk) 

*numB.'k'"*numb.k 
END 



'numA- ' k' f rv.jmA.k 



DROP NUMA. 
DROP NUMB. 
DROP an b 



«AL START 



EXITO 
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ANOTHER SIMULATION 

In this article I'll show you another computer simulation using the Amiga, You see this 
simulation in action whenever you drop .1 stone in fhe water, watch a heart-beat, or stir J QUI 
raflfe I produced la wave acti on— waves thai move out from the disruroani 

Interact with whatever they touch These wai es i ould be electrical impulse: an muscles, 

rust spreading on metal, or simply ripples In a pond Using a principle developed by John J. 
Tyson of V.P.I. we'll simulate wave motion in an excitable bet is not am excitable 

media, but nerve cell membranes and oxidat ion iri ■:•.■ media keeps sending out 

over relatively longdistam 1 

Whatever media we use. it will be described AS being in an excitation state (U) or a ra 
V), The U state will only have tw a 1 allies - (unexcited cell) or 1 (excited cell). The 
recovei ) w ill range from to VM AX which throughout rhew examples will alv, 

100. In simple terms, consider one cell in the media; ntamj given time it hasaTJ and V value Fo 
determine its values for the next generation look first at lis L value When U = l . V iru reases by a 
fixed amount called GUP; when V tm [ft is initially 0, V will decrease 

by an amount called GDOWN until it reaches 0. When both U and V are U, the media 1 

If these were the only variables, a media would quick! <. ible stale and 

wave motion would , .m add other variables however, that will simulate specific 

Ions and produce more realistic demonstrations. J-'srst we'll let a cell be partially affiM b d bl 
cells around it; these cells arc called the neighborhood- If we go out a distance of R (generally 1 
1 all directions from a given cell then our neighborhood consists of 49 cells in a square 
centered en er agh en cell; it R 2 the neighborhood is 25 cells. The size of any neighborhood is 
(2R+»(2R+1). 

rhe variable VEXC will represent a sufficiently recovered slate An unexdted cell (IMJ] can 
become excited (U = I ) at the nex t generation If V is between and VEXC and the num I 

cells in a neighborhood (E) exceeds a variable KEXC. The variable VREC represents a 
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i unexcited V state. An excited celt (U=l) can become unn\< < at the next 

generation een VREC and VMAX and the number of unexcited cells in the 

neighborhood [EE)i wi eds g variable KREC Ptw .ill othei cases we'll onlj .hI.I i. ,i I 

. ' forn V depending on the U valm ■ \ I cited cdD (LM | h i 1 1 

automatically becomt- unexcited 1 1 

GUP, GDOWN 

'il I 1 and GDOWN depend on the local kinetics rjf the excitable media. These values may 

pnl the oxidation of iron., diffusion in a membrane, etc. While their values could be 

obtained from a chemistry book, we'll be more interested in programming the simulation and 

experimenting u tth different \ allies to summarize ihe rules al this i 

IF 0-9 

:r v-rvwxc nnr «nv-V'-aooM(:ir mvio nui xnr/.'i-.mnswa-.uxr 

COWPTl TH jaEOICDOJUKMD OP PJCCirtD CtLLS III 

* :r t>uxc this ttwmri-.mtmmv-.Loor 

ip lotuc ran mwi'-v-QDOuBfiif met* a tvem imY<3:«m»ihue? 
xr 0-3 

ir vt.vue ™Knnmv.v*oq»'iir xm>vini tuk «*v.v>uuii««.3:U»r 

* ir v.vwj: ram hki>0:)ihy-ykujU3Cip 
mm mt mnua or umncrTiii c«lu <ui 

* IF U'UIC THXK ima-fltlRHV-V!U»F 

if ootuc Tun imv<Vf an> i if uwv»vku im «wv-vwi:kmi-i 
m u CTMH 
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Notice th.it there >s only one way .in unexcited . , in go horn 

to 1 . but there Are two ways an excited cetl slate mav become 
unexcited. This process gradually dampens the initial disturbance 
Smoothing things out just as in real life 

Imti.il values of U and V are stored in two separate arrays; new U 
and V values will be stored in two more arrays- After all the new 
values for each cell have been computed, they are transferred back to 
the original array, The dlapj ising the U values of or 1 

for each cetl and point on the screen 

If you wrote the program at this point there would he two prob 
(ems, First, the waves don't appear lo be waves; they're more like large 
blobs and most of them don't interact- It's not too nsalistk and 
definitely not interesting to watch. The second problem is speed — or 
rather the lack of it, Computing that neighborhood of 49 squares takes 
too long and slows everything down especially on the Amiga 500. And 
if we use a larger neighborhood, say R t\ that's 1 W cells to evaluate! 

BETTER K VALUES 

Let's correct the first problem by making a refinement to the K 
values. As an unexcited Dell's V values get closer to it lakes few • 
fewer neighbors to change its U state to 1. Conversely, as an 
cell's V values get closer to VMAX it takes more neighbors to cl 



The sum of the neighborhood around a cell can be computed using 
only four values from SQUARE. E at location (X i i Is equal to 

93CUMJ it.*, T.« I . EQOARMU-lt-I.T-lt.lJ - JQCMUrt-ii- | , T .pj - tQOUUJ [I.I*Y-|. 
II. 

Mow the number of steps required to compute E is not dependant on 
R. The extra time required to fill the initial SQUARES array is much 
less than the lime saved m computing E with four steps i ersus 
computing E with 49 steps 

The demo for the program fills the left-half of a square with 
lie mediai! right-half is D) and all V 

values are I). Waves will begin to come out Irom the excited portion of 
ihe media and as time progresses the) will begin to interact with 
themselves, collide, and form new to ,r- BS Of spirals. Use the initial 
values pven and then tr\ some of the ones at tin le program, 

THE LISTING 

Let's look at the machine lai L) in detail, 

the usual equati ■ ■ variables SUM.TESTV. and E 

• I to spedfii .•.ters. Notice that SUM and TESTV are 

both equated to register d7; as long as these variables are fl 



t • 



i 



% 



its V state to 0. We'll reflect this by spreading the K values out in 
arrays as V ranges from to VMAX based on the formulas 

met v> .inc. ia 1 3iui > -hoc » •v/ydcc 

«utei <rt .cue* (■ t**.*% i -woe] • i v«u -v> / <vwa-vwc( 

Now the E value will be compared to KEXC{ V| and EE will be 
compared to KREC(V), Remember that VMAX =100- Lefs look at some 
actual values. One example in the listii 

t>3 : VMC.l iWX'ii iQOt'Wi ODOHH-S I DK< 5 : XEtC> 1 1 WttJUlOO 

Using the above formulas as V ranges from to VMAX, KEXCfV) 
would range from 1 to 31; KREC(V) ranges from 53 to 5. 

A QUICKER ARRAY 

We could still check all 49 squares in the neighborhood to compute 
ihe E or EE value, but there is a quicker w.iv 1 his new way, how eve r, 
requires a fifth array called SQUARES. Any point in this array, 
SQUARESfl J), equals the corresponding U value U(I.J>SQUAKE5<I- 
1J)+SQUARES(I # M)-SQUARES<MJ'1). Tin. array must be recom- 
puted at the start of each generation. 



together they can be referenced using the same register, After defining 

I FN other variables are computed based on LEN. N I 
through N4 are the four locations in array SQt ARES used to compute 
the neighborhood E value. There are several macros that make the 
program easier tow rite and read. Since the DEPTH for the program is 
1, we only need one bilplane location. The routine MEMORY reserves 
Space for arrays U, UU. V, W, and SQUAK I 

thr \ alue> tor the KEXS re computed- The array 

address is in al, Rl-KEXC in dl, and the counter V bidO Multiplv 
dl'dO then divide by VEXC; add KEXC to the result and store the 
result at location al+dO. Increase dO until it reaches VMAX (100). The 
array tor KREC is computed in the same manner. The array address is 
in 62, Kl-KREC in dl, and the counter V in dil. Subtract V from VMAX 
and multiply the result by dl; divide this result by VMAX-VREC then 
add KRK Stan this at location a2+d0. Keep doing this until V reaches 
VMAX. DEM02 fills the left sitie Of array U and IX with 1 to 
represent ihe exerted state of the n h array value set to 1 is 

also colored on the screen. 

The main part of the program is next. CONTINUE fills in array 
SQUARES at location (1,1 ) in U and SQUARES. The value al U is 
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OWN AN AMIGA 1200 TWICE THE SPEED OF AN A4000/030 OR A3000 SYSTEM! 
GET TRUE 32-bit WIDE, ZERO WAIT-STATE FASTRAM ACCESS! 

'PURCHASE THE MICROBOTICS M1230XA CARD FOR THE AMIGA 1200' 



UOOO Computer 2399 

A20O0 Computer 599 

A12O0 Computer CALL 

ABOO Computer 349 

1 942 M u II I » y nc Mo nltor 409 
2024 Monochrome Mon. 189 
1084SMon4or 249 

A2830 Accelerator 375 

A520 Video Adaptor 34 

A2088 XT Bndgeea/d 49 

A2091 Herd Drive* Ram 
Controller W/120MB HD 279 
A2091 MD Controller 69 

2 MB Ram For 2091 SO 

HD Floppy Drive t 78MB 99 95 
Exlemal Vers on 125 

Janus 2 1 Update 35 

A20O0/3O00 Keyboard 59 95 
A2OO0/3O0O Power Supply 109 



il' r'n ni' 



me & m 



Only81» 



AMIGA CUSTOM CHIPS 



Kickstafl 2.1 Upgrade Kit 77 95 

2 04 Rom (HiO DrrwtJ 33.95 

Kckstart 1 3 21.95 

lMBAgnua(8372A> 37 95 

2MB Agnu* {8372B ) 59 95 

Super DvfM* (8373) 28 95 

Paula (8384) Or Denfee 18.95 

CIA (8520, 9 50 

Gary (5719) 13 95 

2820/2830 Upgrade Ki 35 
2091 Upgrade Eprome 7* 35 



Grand Slam 229 

Grand Slam 500 287 

Trumpcard Pro 139 

Trumpcar d 5O0 Pro 225 

Trumpca/d 5O0 Plus 149 

Trumpcard 500 AT 184 

Pnmariace Auxilsary 

Printer Port 55 

Sourcer Switching 

Power Supply 99 



GVP 68030/ 

68B82-25MZ 
lMB/60ns RAM 
w/SCSI Controller 



CALL DUD BULLETIN BDAHO 

THE WORLDS LARGEST 

amiqa run eear 

10 HSTDVS LINES 

2 GIGABYTES OF STORAGE 

(302) 836-6175 



InairJar II w/OK 159 

2832 wMMegabyles 399 
MaoACWp 2000^500 

wr2MB Agnua 1§9 

Muh-Slarl 2 Rev 6A 29 

KwikStart II for A1 000 69 

SacurKey Secuoly Board 99 
BatlDiak twriery backed 

•tatie RAM dak 199 



MICROBOTICS 



M1230XA ACCELERATOR 

68030 RC25Mhz CPU w/MMU* 

- 68882 Math Chip + $75 /iT\_ /J, fZV* 

Own An A1 200 TWICE The Speed ( * ru-Twi i«UJ 
Of The Amy 4000/030! Only $395!! 

MBX 1200z COMBO BOARD 

C20Mhz FPU & w/o clock 




W/1MB RAM $139 
w/2MB RAM SI 79 
w/4MbB RAM $279 
W/8MB RAM $479 

Add S20 For Clock & Battery* 




Call for other custom configurations 



A500'HD6»OM&'40 275 

AS00-HD8t0Ma'8O 329 

A500-HD8 + 0MB/12Q 379 

A5Q0-HD8 + OMB/213 499 

A530-HD8O/120 585 

A530-HDB* 1/2*5 6*» 

A2000-HC8-OMB 145 

SlMM37,'1MB'60n» 69 95 

SIMM32'4MBtt0na 189.95 
1MB SWM GForco A3000 Cal 

G- Lock Genlock 385 

A3OQ0-lmpae1 Vision 24 1199 

A2QO0-IV24 Adapter 45 

VIU-CT 499 



A 1230 Turbo* 40/40/4 $565.00 
A 1 200 SCSI / RAM* LOWEST! 

aForct Ace e4*r Ho rs ■/ MQ30.WIZ 

Mint RAM, SCSI Controller, 

RAH Card in One 

40Mhz/4MB 675 

50Mhtf/4MB 899 

68040 &3Mrv A2000/4MB 999 
68010 28Mh2 A30OQ/2MB 

(40ns RAM) 975 



PC286 Module l6Mhz 59 

Tah4i-ll 1GB (35ms) 3300 
Tahai-ll 1GB Cartridge 299 
Syquest 44MB Removable 269 
44MB Cartridge: 65 

Syqueei 88MB Removable 385 
S6MB Carlndge 119 

68882 40Mh2 FPU PLCC 129 
FaaaatROM Kit (For KDs) 35 
Cinemorph Software 51 

Phonepak VFX 289 

DSS8 Sound Sampler 49 

IrO Extender (2S*ria*>ort) 99 
Image F/X 199 




fHHO KHEMtlOII MM 
ECTOn* PHXISSOH«ailn* r * 



nnamrBTan 



-e *mi:h son 



$559 | 




ASK ABOUT OUR ACCELERATOR, HARDDRlVE AND MEMORY UPGRADES 



\®&mnMEFi &©§£L£FiA-m?m 



Only $399 

Running at 2SMhz with MMU 
1MB 32bi1 RAM Exp. to 32MB 
W/ 68881 S3 9© 

W/4MB Ram MM f~% n k t~«fraC 

w/BMB Ram S690 C/n/V^oSS 

w/ 68682 FPU add *7S 

w/ gaBB2.5QMht add f13S.PS 









S0m CPU (w/MMU) &4MB SONS torn 



HARD DRIVES 



W»rra»nty 

Quantum — 2 Yearm 

Matxtor-1 Y**r 



Maxtor 120 LPS 16 MS 
Maxtor 313 LPS ISMS 
Quantum 85 ELS 
Ouanlum 105 POrlv* 

□ uanl urn 240 LPS 
Quantum 626 LPS 10MS 
Quantum 1.2 Gig 



215 
299 
176 
199 
365 
S99 
1399 



$175 
S225 

S^2i 



A12»HD's 



GOMB Western Digital 
B5M Conner 
128M Maxtor 
235MB Seagate 



MEMORY CHIPS 



IVS 1MB SIMMS 29 96 

1x6 tOCHlOna SIMMS 3O.00 

4x8 8O-60HM SIMMS 1 19.00 

1 X4 BO-SOnt Salle ZIP 1 7. SO 

1x4 BO-BOm Page 2lP 16 86 

1 x4 80-50(18 Page DIP 1 5.96 

1X1 i2O»7Ons0fP 3 26 

250X4 120-flOne CMP * 00 

258X4 120-eOne ZIP 4 00 

A4O0Q SIMMS aOHM HS 139.00 

UOlDRC-MwWUU 171.00 

IH»nCU{POA] usas 

mxMB-n wmimi i4i.» 

e**S2-RO 13 (PQ A| ft 00 

IWIO.BC-IS w/H UU 1 05 00 

BJU»7 RC-2S (Ptl»| 7*00 

eaoio-FH-Pt.ee {v»h«hj«) call 
eaaaa-Fti-PLCc jvariou*} call 

•04a7 ?SCX (Brtdgtcarda] 44 44 

Cry*l«l OecMtelora (AH) 10.00 



LASER PRINTER MEMORY 



MP II IID. IIP, Ml. HID, IIP 
AND ALL PLUS SERIES 
Board with 2MB 79 00 

Board with 4MB 145 00 

Deskjel 258K Upgrade &9 95 
HP 4 (4 Meg) 149 

HP 4 (8 Meg) 295 



— A500712W AccttoriH — 

PCMCIA 2 and 4MB 129 

Baseboi'dbC $MI 



US ROBOTICS 



18.8K Courier HST 
with Tax 549 

18 8KCourterHST0ual 
Standard wilh lax 749 

Courier v.32bia 449 



14. 4K. z* t> ■ -' « t •- > ■ ■► 
Wlt^i Or W/C3 FAX 

$1 99 

Add S40 For Fax Version 



ACCESORIES'HISC 



Kith Back ROM Sw4cher 15 
PowerPlayers Joystick 8.49 
CSA Rocket Launcher 499 
SupraTurtio 2SMhi 145 

Sareakm Prolectors IS.OO 

X I raclor* Chap Puler 9 95 
Slirvoshot »ir>g(e A2000 
sk>| Tor trie ASOO 39 95 

KooHI Coolrig kit ASOO 39 95 
Qwka Svwtcha 4 socketed 
ROM selector 89 95 

Power Conneclora CALL 
SCSI HD Cablae CALL 




18 Wellington Drive 

Newark, DE. 19702 

(800) 578-7617 ORDERS ONLY 

(302) 836-4138 PRODUCT Info/Tech 

(302) 836-8829 Fax 24 HOURS 



Please Read Our Polities" 



Visa I Maslflf Card Accepted. Frees And Specitcabon* Ate Sub|*c1 
To Change Wfthout Nolee 15H Restockng Fee Dn All rasn-Deledwe 
Relurned Uerclujndeit. CaB For Approval RUA* fletore RelurmrtB 
Merchandise. Shipping And Hantfig For Chips Is SS COO Fee 55 
Pofronal Checks Requre 10 Days To dear. Cal For Actual Shppng 
Prices On All Olh«r I isms M You Oon'l See It Here, Call Us! 



added to the value jusl to the left in SQUARES H(a5)>, fust abo' 
i i\i,i r vii. ,md subtracted from the value to tin- lefll and above i 

LENPl(a5)X This continues until the whole array is filled, Figure out 
the initial value for yourself fog this array and it becomes morecle.ir as 
to how it works when you compute neighborhood values, The values 
get large enough that they could be stored in a word array, but since 
we're only using their di f ference, we can get by w i th a byte array. 

TESTING THE CELLS 

The TEST routine has to start at (R+l r R+ J ) in all the arrays since two 
ot' the locations used in SQUARES are -R- 1 away from the current cell. 
The current V value is put in Nl -W V V and saved in TESTV; the current 
U value is stored in U. If the current U is 1, branch to TEST] , If it is 0. 
however, first compare TESTV to VEXC. It it's lower, branch to 
TESTOA, If not, compute the neighborhood using Nl +N"2-N3-N4 in 
array SQUARES. Com p a re Qua ralua with the corresponding value in 
the K EXC array; If it's less or the same, branch to T [ s 1 1 1 A < k t , . i i ., , , t; , 
UU to 1. 

TESTOA subtracts GDOWN from TESTV, If there is a carry the 
result went below so replace TESTV with 0. Store TESTV in VV. 

TESTI follows the same general procedure. Compare TESTV to 
VREC; if it's lower or the same, branch to TESTI A, If not, compare 
TESTV to VMAX (100), If they're equal, branch to TESTI B If not, first 
compute Ihe neighborhood E value using N1+N2-N3-N4 in array 
SQUARES. Since this time we want the number of unexcited U cells, 
subtract the E value from RR, Compare this to the corresponding value 
in array KREC; if it's greater, branch to TEST IB. 

TESTI A adds GUP to TESTV. Compare the result with VMAX 
greater, make the result VMAX Store TESTV in array VV. TESTI B 
reverses the U value to and stores this in array UU, 

When an entire row in an array has been computed you have to 
jump 2R+] (R0} to Ihe next location since the row stops R away from 
the end and starts at R+E After Ihe entire may has been checked the 
new UU and VV values are switched back to U and V whili the 

-ponding SQUARES locations are cleared in preparation (bf re- 
filling them. The PSET routine takes the value of each UU (either U or 
l)and rotates II intod3j when d3 Is filled Ifs poked uito ihe proper 
screen location. When a row has been displayed the next row is drawn 
32-btts at a time through ihe length of Ihe array- When you pru 
LMB the program terminates else it reverts back to CONTINUI 
re-starts by filling the array SQUARES 

l vpi' in c<»py ihis program from Ihe magazine disk as 
RECOVERY, ASM, Use the enclosed A6KK I, . .wmble it by typing 
A68K RECOVERY.ASM; then use BLINK to link the program by 
typing BLINK RECOVERY .O. Run Ihe program .is RECOVERY. I 
usually run this program from RAM: since Ihe disk drives sometimes 
have a tendency to keep running while the program is running I 
are alternate values you can try at the end of the listing, If you want lo 
experiment with your own values, be sure to meet the following 
requirements: 

' VZXC « VUC < IDA 



o < soon € can * vwc 
« <■ nxc t DiK <- mil' 

*MC<0|i * 111 | UKtllOOj « Hi 

sl two requirements .ire artificial restrictions since I'm using only 
byte arrays and values can"! exceed 255. I've included CHAR I I 

recapping the test rules depending on the U value. 

CHANGES 

Some changes you might want to try with this r>n 

different lengths and widths making a rectangle instead of a 
square (use LENX and LENY) Or color the \ id of iheU 

values; this will require that you expand the PSET routine for up to 5- 
bitplanes, Finally, you might wanl the program to accept tin- variables 
from CLI or "read" th*- DATA lines at the end of the program, 



Listing 



nnsi 




equates: 








jam2 


■ 51 


mousebuttons 


= se 


borderless 


= $800 


ww. screen 


> $2e 


ww.: 


• $32 




■ Sle 


customscreen 




activate 


= siooo 


rmb 




pub, 


- S3 




■ £2 


fast 




clear 


» sioooo 






;■■:■:■ 




openlibrary 


* -552 


closelibrary 


■ -414 


allo-cmcm 


■ -198 


1 rewnen 


= -210 


forbid 




perir . 


- -lafl 


:tion 






= -198 






Closewmdow 


» -72 


viewport address 






5etdrmd 


> -354 


loadrgb4 


= -192 


■el apen 





;no registers used 
j no registers used 
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writepixel 



BUR) 









Cry 32*<S for AMIGA. 3000 



j to ct play 

;to center display 



lenm2 

lenpl = 

mlenpl * enpl 

byte = lyoff *32Q+xoi te containing yof f 

ng words per 
.-offset to next byte 
; array size 





- 


size a 








rpl a 




• 




n2 = 


• ! * mlenpl 




' 




1 


rO 


2*r*i 


rl 


- ! - 




... i ,. 


vmax = 


100 






gup ■ 




gdown » 




• 


s 


kexc = 


[ 


macros* 






. . '• 










openlib 


macro 


lea 


. 




1 dO , \ 2 




S3 


'-.,;- 






macro 


movea 


' 














Lea 




b open 






lEQ if 0) 



; (routine) 



iwi.SEC 



endn 



openwindow macro 



ii parameters , wi ndow, :•• 



int ! lb 
move. I 
beq 
endra 



M.aO 

openwindow 
d0,\2 



movea, I gfxbase,a6 
jsr 



; (routine) 



move. 1 

tnove.w 

move - v,' 
idd.v 

gfxl ib 
endn 

color 

move , I 
gfxlib 
endn 



rp.al 
across, dO 

#xoff,d0 
down. d I 

iyoff,di 
dO 

wt Ltej 



:--:-: apen 



.•center across 



.-center down 



macro 



i address, BEQ=D: 



l$lG004,dl 



(array name) 



move, I 
beq 
endn 
free macro 

move.l »tii£e # d0 
movea. 1 M,al 

syslib treeirsem 

endm 

evenpc macro 

ds,w 

<:■>-. 1 :i 



starti 

move.l sp.s' 

. 

n, i nt base i done 

openlib graphics, gfxbase,close_int 

eet_upr 

make_screen t 
opensc r een my screen , screen , c 1 ose„l i bs 
openwindow mywindow, window, closc_scrccn 

d0,a0 
movea. 1 ww.rport (aO) , al 
move .1 a 1 , rp 
movea, 1 window.aO 
intlib viewport address 
move.l dO.vp ;viewport address 
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The LANGUAGE For The Anno! 



T 



One Amiga language has stood the test of time. 

his new package represents the fourth major upgraded release 

ol F-Basic since 1988 Packed with new features, 

5 is the tasiesl and fuliesl yet. The power of C with the 

Iriendliness ol BASIC Compatibility with all Amiga 

platforms through the 4000. compiled assembly 

object code with incredible execution times... 

lealures from all modem languages, an 

AREXX port. PAL and ECS/AGA chip 

sel support. ..Free technical support. 

This ts the FAST one you've 

read so much about' 




Supports DOS 
U 2.0. 2.1 tod 3.0 



F-BASIC 5.0™ System $99.95 

Includes Compiler, Linker, Integrated 

Editor Environment, User's Manual, & Sample 

Programs Disk. 

F-BASIC 5.0™+ SLDB System 

As above with Complete Source Level DeBugger 



$159.95 
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•"T A J hat is morphmg exactly? Why is. it mi popular. 
1/ 1/ '' 'hat complicated? How can it be implemented? VVh 
W W the best techniques, and why? Why do they usually reqm 
much user intervention? In this an k (a hw'n going loti] Co 
these question-* and make you see morphmg as a technical matter, 
instead of an unexplainable magical effect- Well, lei •- >av tfi.it the 
results may look mi iul the technique surely la not 

i mm won't find the word morphmg in any dictionary, as II has 
h er in--! recentlj i reated in des* nbe a new special effeel thai vmi 
should have seen a couple of times by now. The word comes liom a 
better-sounding, shorter term of the more complicated synonym 
ntlamorphoiis, wh. tplj a change of shape,, structure, or 

substance of something into another, This kind of transformation is 
many times a dt » ial effect, especially in the entertainment 

and advertising industries. You have probably seen many meiamor- 

and Gunmen i.iK, ei en before computer based 
morphmg techniques showed up. Conventional horror movies, for 
Instance, aw filled with transformations, which have been traditionally 
created using ■ couple of elementary techniques, nuchas rudirm 

scene tuts, mechanical models that can change their appearance, and 



MCyou ever 
wanted to 
fqioiv about 
morp fling * 



'Bntno Costa & Lucia (Darsa 




but were afraid to asf^.. 
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dissolve has been, by far, ihe moai used method to create 
metamorphoses, probal la inherent simplicity and Che 

table end results Since the initial and final a transfer 

matibn usually differ significant! lolls representing in l>< 

steps in the transformation have to be created, The cross-dissoke is 
then performed between each pair of successive dolls, which must be 

aned so that they match p veil. The «■.■■ oblern 

with this technique is that the dolls never match perfectly, and that the 
transformation looks .is though it is "broken" into many smaller 
transformations, From each doll to the next. Besides, the creation ol 

rtcing m ■[■■■■> 13 be a hard job, although we an 

surprised by vvh 1 ffects technicians can do. 



[ivc than n completely synthetical l-D melamorp [uence 

obi iously, tin .ilvn be created with computers 

techniques and lenses At first there 1 
cm to do thai iticalcToss ire perfectly effective, 

trnputers are able to do much more than lenses— including 

: t present a solution to the alignment 
problems thai plain cross-dissolves have- It is not hard to realise that a 
mud transformed are 

geometrically aligned before doing th«-, ross-dissolve, so thai the 

msi is smooth and fluid. This artificial alignment between the 
images is basically the only (hue 1 rente between a traditional 

cross-dissolve and the so-called morphmg effect 




la 

lb. page 19 



Different approach, , n computer graphics, can k used Ic 

irphosis-like effects, I WO 3-D models, if they have a 
similar structure (same number of vertices, etc.), can be trivial!) 
transformed into eadt other by interpolating the position of corre- 
sponding points (see the "Interpolation" box) With extra effort, some 
objects with highly differing structures can also be transformed. 
However, even with the corresponding interpolation of surface 
characteristics like color and texture, the final quality of a 3-D object 
•lorphosis will depend on ihe accuracy ol the models and the 
realism of the rendering, For real world objects such as live beings — 

1 metamorphosis subjects — convincing ma 
are currently impractical, it not impossible 

n carefully designed, 1 basii . e\ en if the 

intermediate steps do not match perfei lally much more 



it was not until recently that the researchi • . lot top 

computer graphics companies, found out that such techniques could be 

nuch better metamorph" ''-,>. 5 using < "inputersand 
digital images Hiatal of th» effect was seen in die movie V\ 
where a goat turns into many different animals and then final h into 1 
sorceress. Since then, morphing has been significantly improved, and 
used in many different movies; sometimes in unsuspecting places, In 
,' the Lt-t Crusade, for instance, traditional techniques 
• tsed to create parts of ihe transformation where the villain ages 
until death and morphing was used to join the different 
transformation segments smoothly Morphine, his aba been used 
■ illy in the onthological ( Up Bloi one of the best 
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exampli ..jualnv morphing of movm 

Terrain i transformations ui the shape-shitting 

Creature into human beings. Morphing is mm slu h .in importar 
in the s that most movies with a reasonable 

budget tor tins an'ii sports at least one morphing sequence, and this 
includes productions like Th U Trek VI. Freddy's Dead: The 

Final Nightmare, Bram Stoker's Drucufa, and » 

Now, with the availability of capable morphing software tec tin- 
Amiga,, you should expect to see morphing incorporated buo the 
MsoUm pociaJ effects producers. Even though some 

of these packages do not res thai arc nettled ti 1 1 rcate 

truly professional results (ft Ich we're going '° detail latci i. it 

is possible to use most of them b nple inetainorphoses, 

suitable far W commercials and low-budget rv productions. More 
complex p.iukages, if used with high quality 1 dispkiv hardware like a 
film record^ used to produce quite affordable but convincing 

1 1 effects for tO0\ 

Morph = Warp ♦ Dissolve 

We'll now see, through a simple example, how the alignment of 
the main image features before doing a n live can produce 

much better results than cro he Figures la and lb show 

two d I undeforroed states. Let's call 

Figure : IM image ami lb the rO image, I ;->a50% 

cross-dissoh e between la and lb. Notice how awful the result can be if 
the eyes, nose, and mouth do not mat doesn't look like 

an in 1 1 Step of a metamorphosis 



What it we trv to mm, rut apart, or move the 

feline's mouth up so thai it matches tile woman's mouth? M\ pushing 

or pulling the itt just as if tht kdeol 

rubber. to c < Bit deform (or warp) them somehow. so that their eyes, 
nose and mouth match- Figures Id and lr are detormed Versions ol 
Figures Li and lb \o1e how the main features, like the mouth, arc 

' the same approximate position and shape in both pi 
Figure tt showa ,i Similar 50 cross dissob e Ol Figures Id and le. and 

now ih>. results are a lol better (the quality ol the morj 
enhanced even further with the use ol 

explain late i gh ihe deformed images 

usually look somewhat weird and artificial, their comb 
produce creatures thai ible, almost 

■ imng this kind of alignment is not so straight fo n -, ft 1 1 
reOU ires of both images are uteivlitied and then 

Correlated, SO that i\n arbitrary warping of the images can b- 
Although the identification of the main feature*, could be done by an 

i (election algorithm, for IP •- ' I e is no km 

automatically com sounding features in both image- 

must be done b ) laror who operates 

want 

a couple ol .^'specifying Ihese features, 

but the important poinl is that the and . . >rk must gi 

informal carping algorithm to align the ft 

a warping is used, the cross-dis: rvptya 

pixel-by-pixel vmi i ned images. 



Interpolation 



You'll find the word interpolation many times when working with morphing. In fact, we 
could say that plain morphing is just a sequence of interpolations (two complex shape 
interpolations followed by one color interpolation, plus interpolations in time for animation 
morphing). 

An interpolation is simply a combination of two values, with the quantity of both 
controlled by a single parameter. This parameter can be given as a percentage: 0% means just 
the first value, 100% means just the second value, and in-between percentages represent 
values between the first and the second. The simplest type of interpolation is the linear 
interpolation, which is simply a weighted average between the two values, with the weight 
as the parameter. A linear interpolation between 20 and 50 is represented in the table below 
for some particular percentages (of course there are infinitely many). 

You are not restricted to linear interpolations, though, there are many ways of going from 
one value to the other. In general, an interpolation will be a weighted average between the 
two values, where the weight is a function of the percentage. 
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\ simple fad ihot is sometimes confusing is that morphing ts an 
operatkm pertorni ed on two dill. pes and that war] 

operates on .1 single image. In fee t, ps are necessary lo create a 

morph; each of the two images b i be morphed is warped indepen- 

j , and then the results are combined with a cross-dissolve 
ned before, when you are morph, you'll want to warp 

each "1 the images bo th.it its features match those of the other. ] a da 
that, of course, you'll have to know where the features of both jrn 
are, so the n sxps are not fully independent in fact, The whole 
morphmg prOCCSS is depicted in the small di.igr.im in I igure 1 

Animation Morphing 

When it comes to morphing, the word "animation" can appear in 
Iwo different contexts either describing the output of a morph Id 

.re i >r it- input We've already seen how an image representing 
the intermediate steps betweep I reated It is 

that there are inlnuli . tepfl between two im.'... 

nugfrom -tep:- svhich are '.i I most" the first image lo steps which 
IM ,i I most" the second . We 1 i ke to id* • til Tough 

a percentage, mi that 0% would be exactly ihe first image and a I 
would he the second one. Any percentage can he used, anil of course 
i a I tie continuously from to 100. so that a coherent 
sequence of images (an animation!) is produced. This is mi 
called animation morphing, though; |**s shttpl) an animation created 
from two still images. 



An animation morphing is created between two moving subjects, 

.n ins that two 
is input to the m ae The diti 

• lull to animation morphing is striking, it brings a whole new 
level of in the results I here is no better example of this than 

the Bk video, where peoph ; sing while morphing 

takes i 

Do not be fooled that animation morphing is easj to do it takes a 
good deal of work to find (or create) two animations that match 
tl -i com bndng morph can iTw 

difficult) i few examples- of animation 

morp: with a reasonable hii>: meof those 

produ a moving subject slop, metamor- 

.md then continue its movement; fust to be aUi simpler 

still morph instead of a full animation morph. In the mulli-million- 
dollar movie industry, things like these might bring a saving of some 
hundred till Technically speaking, both kinds DJ 

lirmlar complexities l>ut animation morphing requires 
irt from the animator. 
You shouldn't be surprised to know that ^n animation morph 
isn't much more than a combination of many still morphs. As 
mentioned before, two animations are used as input to the morph, 
me number of frames m Between each par 
II frames from the two animations, it would be 
possible to create an ■ I i n frames, which are 
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depicted in the figure as empty rectangle--, 1 11 ell these m*n possible 
frames, we pick up just the n highlighted ones to be rendered and 
placed in the final output animation, and, belies e us, if works! The 
reason for th.it is simp h successive frame, we morph a bit 

toward the TO animation and move a bit toward the end ol 
animal ■• also that i *m the first frame'of tne FROM 

animation, and end precisely at the last frame of the TO animation. It is 
a simple concept, hut it takes a l» hile before viui gel used to 

Warping Algorithms 

Since cross-dissolve is so simple, it is the warping phase that will 
determine ihe ••-, en the user-interface ol .1 

■re basically two techniques lor specifying 
the important features of an image, and thai e warped. 

Tin : used on control points placed 

'til feature of the image. Each of these control pa 
>rresponding one which can be k-formation 

of the region of the image that surrounds that control point, When 

r morph ing. these corresponding control points are placed over 
the other image 1i n espondi ng features, Since 1 

feature is usually much larger than a I many points must be 

placed over 1 re to produce acceptable results, 

II herb ed on two regular meshes li> fii 



adjusted so that it follows the overall shape of the underh ing 1 

and the second is a deformed version of the first Both meshes have 
exactly the same structure and number of points Fh< 
formed either by straight lin ring each, of the ad$accnl mesh 

points, or by any smooth spline curve (see Ihe "Spin'. 
over each line or col umn of point! ed for morphin | : 

second mesh is adjusted so that it follows the shape of the other image, 
and corresponding points of the two meshes are plan 1 re- 

sponding features. 

Once Ihe animator has placed the 'feature indicate 

i mesh, over each image, a suitable algorithm must be 
used to compute the deformation The algorithm used wli 

are specified rn single points Is relative!) 1 simple to implecm 
Basically, a triangu latum, or a set of triangles, connecting all the 

( unlrol points in the deformed position is automatically created by the 
mi I or each pixel in the output Image, we must find which is the 

it 1. 1 '•', ers it. We then look at the original triangle 1 1> ffmed by 
Ihe same three vertices in their undeforrrted position, in that case A, B 
ajHJ l 1. and find the position fp) m this Inangte where our pixel 
be. The color of ihe original Image al this position will be the cola 

the output pixel. Ihe entire procedure d forcai h pixel 

output image. 

Although n 

efficient, the quality of the results is nol n h uld call pro! 
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ua too rev triangles fora given image, disctmlinu 
itkin will be noticed exact!) along the edges ol the 
Bes. ( Hf course there art* workarounds that try to smooth the 
deformation around the triangle edges, at the cost ot speed Note; 
however, thai since the triangle* are arhitnmlv created by the 
algorithm, the position of the edges is unpredfe table, and it may 
change suddenly during a continuous morph- If you ha* t access to a 

'in lhal uses point-based techniques, you can eastl) check the 
existence oi DntJmdties they willbenotkeaMe if you try to 

Uige checkerboard pattern. AH these problems will be solved 
by an appropriate impteme nt at io n of a smooth spline-mesh warping 
algorithm. 

Spline Mesh Warping 

The implementation of a spline-based warping technique that we 
present here is considerably more complex than the point based 
hul it has many advantages. First, it is naturally loniinuousand 
smooth., providing for much more fluid and spontaneous deform ,1 
lions, specially for living subjects 5econd>itisai mplementa' 

thai works In rwi ting anti-aliasing, and it takes 

advantage of the memory organization of conventional cooiputi 
Besides, although the algorithm itself is more complex, the required 
data structures for a full Implementation ant simpler and im^u-i to deal 

with. 

v of the algorithm is mostly due to its two-pass 
nature it can be performed in two independent passes, one horizontal, 
that produces an intermediate image, and one vertical that uses this 
intermediate image to produce the final output This brings the 



problem of deforming a 2-1 ) image dem n to the simpler problem of 
deforming many l-Dscanlincs, required 

nictitations. I efsseehow this can be done. 

Tile horizontal pass ot the algorithm - rearing an 

intermediate mesh 1 that includes just the horizontal dispLn. 1 
from the source mesh S to the destination m .-,..■ u point in 

I has the same k coordinate ol theconvspnndirig point in 1 
coordinate of the point in S. Each column of S and 1 is then fitted w Ith 
an interpolating spline— We call S R m 5, and 

IS the set of vertical splines in I. i sontal scaiulne Es intercepted 

independently with SS and IS I : nates of the intercept! 

with IS and the x coordinates of the Interceptions with 55 are then 

Itted Witl i-rpolahng splme, which gives a smooth tell 

called the scan I me mapping function, between eat h pixel ii 

andthepixi ponding input scanline far each pixel of 

each horizontal scanline of the intermediate image. It is noil easy to 
use this mapping function to determine which pixels or the 1 
image influence this output pixel The color of pixel p will then be 
either the color of a, 1h.1t of h or an average of the two to obtain an 
anti-aliasing effect. In general, anti-aliasing here is as simple as 
computing an average ni the pixels thai affw taps utput pixel, 

assigning higher ■ pixels lhal nan e greater influence, a in 

this case. 

You should note at this point that there are two ways to appl] a 
mapping function to an image: direct and inverse mapping- In the first 
unction la applied to each pixel 111 the input image to find its 






Splines 



Splines are curves that are defined by a small set of control points, and a 
(usually complex) formula that takes these points as arguments. With the use 
of this formula, it becomes possible to know all the infinitely many points that 
make up the curve without having to store all of them. A spline will usually 
pass on, or near, each of its control points, and the splines that pass exactly over 
each of the control points are called interpolating splines. 

There are many different kinds of splines, each of them defined by a certain 
formula: Natural Splines, Beta Splines, B-Splines, NURBS, etc. You can find the 
formulas and explanations for most of them, and some other, in good introduc- 
tory computer graphics books like the second edition of "Computer Graphics: 
Principles and Practice" by J, Foley, A. van Dam, S. Feiner and J. Hughes. 
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location in the output, ipping, on the other hand, applies the 

inverse (unction to each pixd in the output lo determine which input 
pixels contribute to it Inverse mapping is generally preferred since it 

ixeJ is cakula ted a nd tha t no work is 
wasted computing unnecessary pixels, .1-. opposed (a dared mapping. 

The vertical pass ' mesh and the intermediate 

image J-- input tn produce the final output; the source mesh and the 

source image are not used. Ii is completely analogous to the firs! 

with the rows oi I and D fitted by horizontal splines, and the mapping 
. imputed lor each vertical scan line. Note that the intermedi- 
ate image nuv be distorted to such an extent th&l mugh 
information 10 compute a CO ' icaj pass, but this raid} happens, 
unless there are wery large rotations in the two meshes, but this is 
ihing, 
tt may seem complicaled to implement such an algorithm, but 
once you have the routines lo manipul.iv the kind of spline thai 

il is not that hard. Ctoviouslj . Hua is full the bask warping 
algorithm, it needs a hit of extra work if you '.'.ant tt to do morphing, 
For this, it would need to warp two different images according lo their 
meshes, and then create a cross-dissolve betwei 

results an average between each pa it ponding pixels- By the 

•must have exactly the same dimensions for tJlOSl 

Progress Control 

1 rig from the above discussion is the 
detailed co of the transformation. There are two 



en I thing's going on in a morph, the warping and the 1 
dissolve— OK, '. 'Li know thai b) you should be 

able to control the pro , independently At a certain 

' ta an animation lea instant aunt to have the result 

almost fullv w ir] end shape, but with the colors of the 

starting image still visible \ warping at all, 

keeping it at zero, and lei |us1 the cross dissolve lake place, or vice- 
versa. In more conventional morphs, you'll want both of them lo take 
plat* irpirigand 

the cross-dissolve in just at a later stage. The progress of each of 
the two can be precisely described by two functions, which we like to 
call shape mixer and color miser, that control how much of the FROM 
and the TO images will show up in the output, or the mix between the 
two. 

Even more important ih.in UK Overall *1 trot of the color and the 
shape p ■ - precisel) at specific 

regkn 1 1 age. This is achieved through the use of local mixers 

These mixers arc created and manipulated |ust like the global ones, hut 

lated with particular control points in the mesh, and 
their action is restricted to the region that sunounds them, Of course 
you can have all kinds of mixers working at the same time, with global 
ones controlling the rates for most places, and local ones providing 
distinctive rales tor some special ports of the image, The ability lodto 
this is an absolute ,,,| Min professional results like those you 

see in the mm les and TV commvi 
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Conclusion 

■ I In know thai * "ted to 

morphing package will hardh t. > , n -> 
than 15".. of flic total Vide* i ] rials require much more from the 

morphing si y are nomp louse, like a friend!) user-infe 

ocn rTsion routines, dithering, anti-aliasing, 
alpha-channels, hifth-qualitv output, multi-format image loadin 
saving, ami an efficient and s\ stem -compliant impltrmentatHin. They 

ieed supper ting COIV p lev an i marions easily, and 

automatically recording them to Video tape. In this article, we. v\ en* nut 

m all of this can be done — after all, it doesn't have 
much to do with morphing IG 

Cot the availability of morphing pw I the Amiga, 

might ask \, •■. you would worry about trying to 

implement the algorithms nbed here. Implementing 

something i 1 - always an excellent challenge, and these algorithm-. ,-\rr 
Ljwte j ou can learn a lot from them, And much more 

important than that, ling how morphing works inside will 

surely help .iter from the outside If you wis! 

1 V&iamirt Included in iheAC's Ti CH disk, 
which will let you experiment with many of the Ideas and the 

irilhms presented hem, induding spuni i and all kin 

mlxera We hope to have helped to make some concepts whi. h n 
alien to you become friendly and nalur.il 



Bruno Costa and Lucia Darsa are computer 

engineers working with computer graphics 

at Rio de Janeiro, Brazil. They are the 

authors of Visionaire, the morphing 

software from Impulse, Inc. 

A demo of an earlier version of Visionaire 
is included on the ACs TECH disk. 



Please write to 

Bruno Costa & Lucia Darsa 

c/o ACs TECH 

P.O. Box 2140 

Fall River, MA 02722 
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Have Your Own Custom 3-D 
Graphics Package: 
Parti 



by Laura M. Morrisson 



Commercial 3-D graphics packages dophotore&Usm superbly well, but 
is that all there is? If you have ever wished for something more, or just 
something different, from 3-D graphics, here is your chanbfc The programs 
described in this article pros ide tj*e necessary 3-D graphics functions and a 
point of departure foi \ our owji custom a 



eloped these programs lo accept vtSkUees and other plant objects pnductHitwig iterated func^ 
systems (Set Volume 1, Number 1 od this journHfortny article on ' \1. ike Your Ofc*n 3-D //egetai 
The II i - e del i nc ' ptti^^^greas commerc i -i-iequire objet t> 

Ik^ideS accepting objects denned by sets of points, the^ro^kmsdcstiii r..l here yw. ide sorneeXJ 
mil available w itb con icfc . iges, The rejrfaenW alg»Uhm is a Z-buf tier algorithm, wi 

Eastet i tan i tigned to work unpads of thv^enmndependently, stvihe n 

and intricacy t^dfn^siiii.in^unlimiteil The guiding metaphor is ruK Phorography but trine Arts, 
much greaty/artist's I n terfe ren ce tfhrendering \jfu can use Ihe pry^ram* as th^y are, o/cusii 
and compile custom variations. 

Part I mi Ic describes the 2-BufJ^renderins algafithm 

i ordering program, Part I tncliiiw*j3»g£m»& tor genri 
injfudt^i several sru"ppi»tt programs For handling pomfcdyiined 
Iding points, and comlwing picturi- elements- 

All the hghtinfra^^Rthm code is postponed until I'a-UJ. w! 
algorithm, and a fine ail-s the Ting tor Amiga ^-Ugrapiwcs 



ids 



torithina 




define 

g posr 



nds II also 

n, manually 



e\pl,sin the denvjtionol a lighting 



Wt 



Space; Points, and Perspecth 



rhV^untext of ti JMMHK ffi 1 ' 

i where r.-i i 1 1 H 

! Ite^i^^^^Kot the same as the Amiga sent 1 
number- fi n . all nURm, uflegi'r^ For saving, and only ! r 

Is and lights Ami be anywhere in the world spai 
ns on IKe frame a Snored wl 

The eye, which defines thifeisoiiu of vijjw?', must b< 




a I number coordinates \ frame in the 
le-agndo! ill ICI 1 1 \ WIDTH integer 
I iiai Ihe programs use floating podnl 
screen pixel coordinates tor plotting. 
olunif or clipping is necessary. Points that 
omes lo plot the Amiga 

me and f'!v I is viewing as shown 



in lllus trati.' 1 1'., irame isSwalogous to the retina of rf' > •> ' • •• Ihis i gives more natural vision 

than having the frame between the evVand the object- Wh* r 'd the object, the 

object appears smaller the nearer lI is to triV^^^^^mu* opposite from natural vision, and .is the distance 
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between the eye and the object im 

i ii orthogonal projection. When the eye is between the frame And 
theob it as the object oc 

to the eye, and diminishes as it recedes, as in natural vision Mom 
dramatic images .ire possible with the eye between the frame and the 
image. 

i he distance beh ind frame is 

proportions ol the distances between eye ar and betwei 

and object will influence the image. When the eye is about ha In- 
between object and frame the obje i will be aboul the same 

er than the objft 
points maj be needed loinsuieazi opaque Image Notice that, as on 

the retina, an image is upside down and right-left' reversed on the 
frame. 

Objects consist of points which are Stored BS (mil 16 bil integers: 

color register niunbei ite, v coordinate, and t coordinate I mi 

bundling Ihei Bd in numbered files ol, say, 41X10 

points eadn I PS -vegetation obje< Is will typically have from 10 to 30 
such files 



Part I includes 

programs for generating 

boxes, shadows, and 

patterned grounds. 



diseti iattaiiships of lines tnspaci ound in Analytic 

Geonv. I 

The 3- 1 i grap hies describi i uses a / I 

rendering algorithm instead of ray trading ■ •rtthm 

renders a scene b\ keeping track, in a V buffer,' ol the / value 

ach point (j(,y) plotted, and, when an 
come'. iring a smaller z-valwe, repU plotted 

point and its i value Fhs algorithm automatically sorts out which 
object is in front of vrhfc 

The z-buffer algorithm described he . quattnn ol a line 

:.h two points m space in calculate w in. h points the I 
Illustration l.i fa)dep« lines m interest relating the 

object, the frame, and thee- uplicity the object is shown solid 

but is to be considered a cluster of point . I : . . netW een 1h> 

and the frame ITte lines suggest how the image gets inverted 01 

When the line through a point of the object, and th 
intersects the f ra me ttu ■ le if not b U icked bj a nea rer 

object. The equations gne thtransfor- 

mat ion, the una gi po i nt on the \ 

Equations for the /-buffer rendering algorithm can be derived 
from the two-point equ fallows Points on the frame have / = 

1 1 rbv definition of the frame) so the expression involving .-• 
constant; 



fc*t *l - Mta^Xob^rnfcj.Xcbjl *** 

nuw <i-Ei.im?-tii « -u>t>) 1 1 t«r»-iobt i 



liquating each of the other fwo terms to kl yields equations for \ 
and y, Wher I I he plane / l\ lh.it is, the frame. 

■ * M»rrt-»lt * Hi ■ If • fcl*Otey*-lota]l < lata] 
t • Wiyl-fU * f\ • Tf - tlTrayw-Tata]) ♦ TotaJ 
I - 9 ■ SI 



i i 'pendent. They have no order and are 
not linked, Objects can be combined by adding tiles of their points, or, 

i il an object can be processed -■• paratcly and differently by 
splitting the objecl s files iml 

ire easy to work with. Algorithms for 
K appear to be much simpler than algoritJi nig 



The Two- Point Form 

The two-point form of the equation of a line in 
3-D graphics ha 1 \ line in space is determined b) 

•nit-. i'i and P2 on the tii ter point, P, is on the line if 

the coordinate-* ol ]'-- tkms 

ii-iiuiij-iii . iy-tuHyi-ru - tt-iii/tu-iii 

Ro is on the line through riKi.i |,il iam 

if these relations hold. 

These are versatile and powerful equations worth ti-. 
necessary to become familiar with them. They provide solution* to 
many 3-D graphics problems. Illustrations LI and I.2 show sonic 
useful points and lines. Mosl ol the algorithms for the programs 
in this article exploit the two-pen 



• not intersect 

the frame if the object is too low, too high, ■" tew fa* lell or righl II D 

<=% ■ HEIGHT then the | n 

within the frame, and has a representation where the line intersects the 

frame. Finally, Pfrarne has a corresponding pixel, Pscr<XscT,Yscr,Zsi n. 

on the Amiga screen. t'framccanbe transformed intoPscr with the 

equations: 

**Ct ■ WJDTl - XEm 

fKt • hiigbt • im:gR-rtriMi 

ahn Zobj Ni ord for each 

screen pixel ol the i iated with that pixel 

The algorithm fur calculating the shadow ol I .»n the 

ground aN. mini form ol the equations Ol a line m 

to hud points ol the shadow object. Illustration 11 (b) 

relevant points and lines rhe points are: 

PI . Pill ilttt 

h ■ fotajoiob}.r<*3,Sofc)> 

p ■ rmaarMiifed. r*h*4, t*h+li 

Since the shadow is on, the ground, Yshad G and Ihe expn 

<1-y'.)/ IrJ-y: I - CTilwd-YUtl/IT-afcJ-YIltl «U 
B • kl'UJ-alJ . *I ■ Kthxd • kl*:xabj -lilt) * X1U 
t - « z»ti#d 

' H-all i il i Sihtd - fc2*(lai»)-£ll£| • tilt 
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The line is from the light through .in object poinl. The point where 
this line intersects the ground become* a point of the shadow. 
rshad(Xshad.O,Z<ihad). Note that the shadow is a object * Ml of 
points. 

Shadows i i I ■■■<. .nin-her are likely to be ugly, 

garble the form, and are rarely used b) fir* no casl shadow 

algorithm has been implemented for this art 
create cast shadows by first creating the shadow i I 

nd then projecting thu nbjecl, considered as .i i l.M-r 

'pattern,'' onto the far side of the to-be- shadowed otyM t 

The algorithm for rendering floor, or ground, points also uses Ihe 

point form of the equations of a I ine i I 
the ground, or floor, can have infinitely many points the algorithm 
works badm aid from those for other objects Instead oil picking a 
pomt on the floor and checl the algorithm picks 

a poinl on the frame and «. I > t if it should reflect a floor point 

This avoids ha\ ing to calculate non v i; .: ration I 2(a) 

Tile algorithm constructs a line through a point on the frame and the 
eye, and -•..-<-- when II would intersex I the (loot I he points are 

H - Itttamiltiam.ltfmm.zttnMmi ■ rf riMltiel, roir.Ol 
P • rtl* ixr:r r mr.Etlf i » UltiXtli.e.ttltt 

For J given row and column on the "-< calculate 

M hether it should reflect a floor ; 

Since Vflr = 0: 

ly-yil.' lyS-yll . - row, 1 Ifym-tvut • k> Alio line* Ilium * 0: 

' *-i:i ,' lii-ill • Itljlfym • kl 

Xllr ■ k) a I*y* aad Illr . (]'.[i|>£:. 

The poi n I pCl I r I >,Zflr) can be used to determine what color 
PframeiVol.row.ni should be. The determination could involve 
examining ihe floor pattern and the effect ol lighi 

The Code 

ions have a separate program to make it <-. 
customize and re-compi le the code. Some objects hi iwct er, have loo 

points to write out. For example, ■ floor The floor program 
given below generates a floor point, places U re it, li gh Is, 

it and renders 11 ngtempora 

Cubes or boxes also hai e large number-, of : atedly 

handling thi Irs, the vuber' program g. lors, 

nd lights the cube, poinl by point, The cub., 
be extended to generate the hadow, and render both cub 

shadow You ...in use the programs as separate functions, writ 

the sets of points between each operation, w riptsto 

nate production, or you can string the codeol different 
functions together and compile special purp^s,- programs for each 
class of objr, | 

To gel help on running a pi name .11 theCLI 

prompt. The program will write inslrin Ikms to the <> 1 n on how it is 

run. Some programs u either to cc '.tiles 

to ram: or to process a numbered sequence ol ob eel - tiles. 

Scripts an* 'b)e 1-2. Some programs require a parametcj tile 

ile "parents I In Table 1.1 

Rlltowing are a briel descriptions of the programs. Fu 
comments are in the I 



Zbuffer, Listing I. reads files of object's points and plots appropri- 
ate points I fer gets the eye coordinates and 
the maximum / distance from an ASCII parameter file, which you can 
prepare am parameter Ale is called 
'zbparams Note (h L it you can keep .1 copy of the par. 1 
definitions and snpul format al the end of the 'paiarns' tile 

Zbuffer produces two types ol tiles, one w ith s 
Flu- first is the rendered s 

others tes for non-zero screen points Ihe /hut file 

has the same form.. 1 1 as an 

completely different. Ihe zlbuf file re< ord refers to the Amiga •-. 

It can- 1 16-bit integers: the pixel < en column, screen 

row, and associated t value 

Zbuffer accepts an indeterminate immber 01 miscellaneously 
named object files. This I p/buts program, 

which merges two or more '/but' tiles, allow sthei Id up a 

nlimlted number of objects in limited storage. 

For processing speed /butler sc ript copies all the file's /buffer will 
need to RAM' (where you have placed the files of objl 



Use the programs as they are 

or customize the algorithms 

and compile 

custom variations. 



Zbuffer requires a list of input files on I and line- Note that 

.in continue the list past the end of the hoe if mui. do not hit 
return, To run Zbuffer on three tile-, for example, type at th 

prompt 



■buEtar 4(11 

The file "99W Is an 'end-of-files* hie When zbuffer trii 

process 9999, it recognizes that it is finished. The s*wu file should 
con! j in one set of dummy values. 

Zbufn - 1 oJ t he pn 1 eri bed in this arti 

a record of its activity and run parameters to a 'Run Notes' file on 

disk 

p/buts, Listing 2, reads two or more '2 and 

, ombines these into one new reiul tile and new, composite, 'zbuf 
files. To run conip/buK, at ihet I I prompt 

coopibura «■*&*!" rt1«I> *'l*r*f til»}> ... m» 

'i ou can also use compzbul 

ram: Compzburs 
nol require a parameter file 

■ reads an object's points and given a light 
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i. cak ulati -• the points ot the plane j =0 1 ho t tall in shadow It 
ew shadow object Note that the 
.hi object. Since the ground i-. Frequently pal 
program also calculates the shadow o 
pattern 

Shadnwgen requires a pattern repeat image i low the re| 
used i- described m the disci toot . I isring J. the program 

that generates .1 patterned around 

Shadowgen 1 parameter tile called 'shparams' containing 

the light position, and the width and height * il the pattern repeat fne 

ich specify color register re- 
mapping! if any. The numbers zero u» 15 will leave tru 
unchanged It, lor example, position three in the list, which corre- 

to e nlcn register two. contains the digit '9" then the program 
will color any point having color identity '3' with the color in register 
'9*. This is handy tor changing the colors oJ the repeal image. 

Zfloor, Listing 4, generates and renders ■ patterned ground. The 
familial checkered ground 1 A cj berspace has become a bit boring. That 
la uniurtiin. ids prm ide powerful 3-D \isual 



The code 
is designed to work 
on parts of the scene inde- 
pendently. 



So this door program alto 1 reate cCaborab 

instead of the simple checkers. Elaborate patterns can have 
surprising rendered Images so a little experimentation will repay your 
Ror example, one pattern 1 found lool Like patio 

carpeting, another looks like breeze ripples on a lake, anoth 
cyberspace I 

Zfloor gels the pattern color ol a floor poinl by the point's 
position on the pattern repeal modula the repeat's width and depth. 
See Illustration 1. 2(b). You can make the ini n in a 

I'rogram. The program looks tor the repeal in the upper left 

't the image 
As the program creates a virtual patterned ground, it produces 
thexb erlng of how the floor would look from the given poinl 

tt in all directions and to the hoci 

>! qecl , i n this case d far a nd wide, 

1! evei writing its points to files ound w ill even so 

have a large number (perhaps Mi or morel of 'zbuf files the program 
does not produce them automatically You must key '/' during the run 

rectly in 
your fin.il image you will seldom need the 'zbuf* files I 

The rendered floor' s Vhu I ' f« les can be coi rq , 1 1 ' f i les 

ofobjeCl 1 ,ip tin- tin.il 



rendering Alternatively, the rendered ground image could be 'p 
behind the rendered objects using; thcbackei program, I isti 

Besides requiring the pattern image, /floor program requires a 
parameter file, Hparams,' 1 
pattern repeat width and height, and 'yon,' the maximum 

Illustration U shows the rendered ground tor the repeal shown 
in Illustration J. 2. The ground in the illustration is lighted, bl 
lighting requiresa long explanation, the code foi lighting the floor is 

'uded in Listing 4. It will be given in Part IE of this artil fe 
Meanwhile you cai 1 .*m to trv out different patti 

rids, 

generates rectangular boxes, It reads height, 
width, and depth, row and column increments, color and offsets, from 
a parameter file and generates points of a hoDot 
any size al all have large numbers of points cuber, as well is generat- 
ing points, places and lights (the lighting code will be given in 1'artll) 
the box to avoid handling files ol points You may want to expand the 
• generate the box's patterned shadow, and then render both bos 
and shadow A poinl can then go from generation through rendi 

ei leaving temporary tal Is how I generated the 

boxes of Illustration 13 ,whuh show b three boxi 
shadows on a patterned ground, 

To run cuber, type at the CLI prompt 

cubar i output lxui>ati)*et** mm> 

For many boxes their points as protected unto the frame are not 
dense enough to produce a solid looking image. You can get around 
this by generating points for a box, say, twici 1 s you wan t, 

1 g t h; ■ po 1 nts, scale the box's d i menslons di 
half. This will increase the density of points 

i I isftng 6. posit] I s within a scene. It reads a point, 

scales, rotates, translates, then wnte-, the ret bed poinl la a new file. 

Explanations of the transformations are not given here M) 
article, "Make Your Own 3-0 V- ( Injects," In Vdlu 

Number I of this journal, gives detailed explanations of the 
scaling, translation, and ratal 

Placer rotations do not include correction For non-square pixel 
distortion because different resolution! ' nonltors, and 

differenl printers, will require dirrerent correction amount- 
code is described in my article. ' transformer 'in\ olume <. Number 1 
journal. To get the inches; pixel ol j out particular resolution 
i printer setup draw an image of a one pixel frame in .1 paint 

program, print > r urcthc resulting width and height, Dh ide 

responding pixel counts. 
To run placer, copy the files of object's points to ram:, then use the 
I'll, ei script.' Type at the CLI prompt: 

ix*-rut* flictr .tcriyt <ct]ut.iruti 

Backer, Listing 7. reads, 1 I and pastes it behind 

The bat kdrop til!'- onlj pixels od the foreground 
having color register sero 1 he bat kdrop image could be a rendered 
ground or even a partial l\ :. m Ol the backdrop image 

1 nuld be a flat bat kdrop picture. A common old Pine Arts techri 
wistopasti Bdistanci . ound, with no middle 

ground. The backdrop blue for Illustration I I I oal was 

pasted behind the rendered patterned floor. Purists who object to 
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superimposilion ot rendered parts of An image can, ot ( OUr$e, i i 
the entire image from '/hut' fill's. Superposition, however, sav >• 
great amount of work and even makes feasible effects thai n ould 
otherw tee n ohlbi live amounts of storage. A combi nation of 

means works best. Where image elements Intermingle (heir '/buf files 
can be combined using comp/bufs and then non-intermingled 
elements added behind by pasting. 

Addpoints, Listing 8, reads object's points, plots them on the 

; is user mouse-clicks indicating points to be added to 
the object- Although it would be possible to build an entire ob|ect 
using addpoints., the program is meant to be used for editing objects. 
Fm example, -i fen poJnb might need to be added to fill a hole. Or, a 
few points, added with addpoints can indicate the beginning and end 
of a line whose points can then be writ 1 1 ti into the AS( II points ilk 
using ci. I midpoints i .in also be helpful in adding sub-ol 
building complex objects. It will record your click of the center point 
coordinates of the to-be-added sub-objects. The added points file, 
called '<inpu tfilenamoap to rem lb run add points, type 

at the CLI prompt: 

■ddpolQLi 4ob]*ct-tllanaB» 

Addpoints requires a parameter file called "adparams' containing 
the color register to be assigned the added points Addpoints hafl 
.en which give .'. side ind front view for 
• i will need a top view, of the x-z plai •.. 
n points on a shadow object, which lies In the y = plane. 
Rather than riab irate the algorithm you can make, by a few small 
changes, a special '• erMon Of Addpoints, which has a x-z plane and an 

v\ plane. 

Tutorial 

Follow these activities to get started running these programs. First 
fa i milts a cube,, use 'ed' to make up a parameter file called 'cuparams" 
or copy the 'cuparams' file from Table!. 1. Try the values: 



£00,430) and n ill cut the ground 1800. 

Next 1\ pe ai theCLI prompt: 



luetic* itwf (ar.icrkpt it'jJ(*r 



tipt will copy everything you need for a zfouffer run to ram: and 
Will change directory to ram: It will report "Ready to run /buffer" At 
the CU prompt type: 



thutlmr wytwbm mbal rub*2 cub*) cuS*4 Mil 



where 'mycube' is the name of the output tendering and /buffer liles. 
and W isanend-ol-tiU 5 hie. 

When ^buffer is finished you will find a file called myeuberend' 
in ram: There will also be one or more files 'mycubexbufl'. 
'mycube?buf2', oft 

To save the rendered image covert it to ILBM format and v 
to disk. At the CLI prompt type: 

raviiua ■yrubarand dfS iByrvbaraad-vlc ht 4 



The rendering algorithm 

is a Z-buffer alogrithm, 

which is much faster than 

ray tracing. 



L00 1 
3 i * 



D.f 0.4 0.0 210 104 140 
100 000 510 1.0 1.0 1.0 



Reading from left to right, top to bottom, the cube is to have side 
length of I IX) piv rement of two means Only every other line 

will he tmiuded. it will not he opaque. 1 1 twifi be rotated L). 6 radians 
about the x-axia and 0.4 radians about the y-axfe Its center is 
(260,100,860), The top and bottom will have the color in register 3, 
front and back will have the color in register i>. and left and right side 
will have color in register 9. The light is at (100300^60). I Although the 

program doesn't have its lighter algorithm so it won't light the 
cube keep the paramere formate inl.it I and all ready to add the lighcr 
Code Iragmenl to be given in Part II) All the sides will be the same 
length as given in the first parameter. These definitions and input 
formal are always available in the program h-img and you can keep a 
Copy on the parameter tile itself below the values. Put the "cuparams" 
. iil-t-r. At the CLI prompt type: 



When 'cube i is h rushed it will have written I Mir files 

called tub-el . tube2. tube.!, and cubc4. 

Lent e Ihi (our hie 4 - in ram: Make a '/.bparams' file with the 
parameter values:24fl 200 I Inch n ill give an eye posil 



Copy the 'zbuf files to another disk so you can combine them 
with other 'zbuf files later. 

t. make a shadow (or the cube Shadowgen will mala 

patterned shadow m case the shadow (alls on a patterned floor. 

DVIgjh we will feed shadowera pattern image we will trick the 
program into giving ■ shadow of color register 15. Make up a 
'shparams' file with the following parameter values. 

100 IM MS 

o ll n ii ti ti u II II II li ti li is IS 

141 1*1 

The parameters show the light at the same place as for the cube 
hi at (100,800,560) The string o( 16 numbers map every 
color on the input pattern except black into color register 15. I"he width 
and height of the pattern repeat will be 168 since we will use the 
pattern image CHI disk. It has width and height of 168 pixels 

At the CLI prompt type: 

■mcvC* •tMOow.Ktlpl ibttkmg** 

This will copy everything you need to ram: and change directory 
to ram: When it is finished copying it will print 
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can you turn to 

for the 

best coverage 

of the fast-paced 

Amiga 

market? 



Amazing 
Computing 

of course! 



: lor iht* Comn 
TECH p: prchcnsh 

n the longest runnii ig in mthl) taniga 

pub) 

mpuiing I 

You'll also I i 
Ian U and w* irking 

Prod 

ipcnsable 

and 

Villi 

ncemenl 

the most 



IP 

is* 


Anwzingfx ma « 



Call 1-800-345-3360 



'l*»4y to run itudowiia" 
A! the C LI prompt i 

■*a4c«g«n eutwihad pattern. pic cutel cubtl cote) culwl « If 

Do not hit retain uniil aftet you type "99W 
"This will produce wveral fill--. , -..ll.-tl t ubeshadT, 'cubesh,>d2' ... 
elc. in ram; Run /.buffer on them as above. Use the «me '/bpamnis' 

ate. 

And so on. You will be able to continue on your own. To find oul 
what is needed on the command line, type the name of the program at 
theCU prompt 

Try using 'compzbufY to combine the shadow and cube . 
files. Save the rendered cube + shadow image. Make a plain floor of 
color in register 1.1 Use backer lo put the floor image behind the 
+ shadow imafie. Try oul 'zflixw' on some of your own patterns which 
you can make in a paint program. Be sure to keep a note of the width 
and depth of you pattern rep a 1 1 - 
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Listing 1 



/* zbuffer.c Listing 1 
Reads 1 ight ed and pos i t i oned object * s pc 
a color map and a point of view. 
Renders the object accordingly. 
Produces J zbuf ' and 'rend' files. 
Copyright 1993 by Laura H. Horri eon */ 
•include *stdio-rr 

jde 'libraries/dosexte: 
•include ■ intui t i on /intuit ion. h" 

ude "intuit ioi 

jde 'exec/cxe 

• include •maCh.h* 

• define COLORS IZ 
•define DEPTH 4L 
•define WIDTH 640L 
•define HEIGHT 400L 
•define HAXPOINTS 4000L 
extern struct Window *w; 
extern struct RastPort *rp; 
extern struct Screen "OpenScreen < \ j 

■i Fi leHandle •rjpen< \ ; 
USH0RTcmap[16|; 
SHORT *cols; 

re NawScreen newscr = < 
0,0,640,400, 4, 0,1. 



HI RES I LACE, 
CUSTOWSCREEN I CUSTOMBI THAP , 

NULL.N. 
NULL,N> 

struct Screen *scr; 
let NowWindow nw 

420,10,210,50,0, 1, 
CLOSEWINDOW I VANILLA.' I 

WINDOWCLOSEI ACTIVATE] BORDERLESS I WINDOWDRAG, 
NULL, NULL. 



NULL, NULL. 
0,0*100,50, 

'^SCREEN 

h 

Struct Window *w; 

ip *bitm; 
struct RastPort 'rp; 
ewport *vp; 
strucr vr.tuitionBase; 

struct Gf xBase *Gf xBase; 
static WORD "zptrMQOJ; 
WORD 'rowptr; 
WORD -buf ; 

static float kl, xo, yo, zo, xe. ye, ze; 
static float xs, ys, zs, xw, yw, zw; 
static float xsf , ysf , zsf, inside; 
char out t ile[l20] ; 
char inf ilet 120], - 
char st r 1120 1, • 
main (argc, argvi 
int argc: 
char *arg 

LONG ofh. afh, bfh, cfh, pfhj 
struct IntuiHessage *mc 
ULONG Class; 
USHORT code; 

lnt row, col, k; 

int count, count2« dil, number, yon; 
float xscal, yscal, zscal; 
int xeye, yeye, zoye, xobj, yobj, zobj; 
int xscr. yscr, zscr; 
int xoff, yof I d, zwld; 

int dm = 999; 
WORD zval. oldval; 
LONG planesize, buf sice, nb > 0; 
LONGnt, co lor size; 
FILE *f open II . p, *lp, -pp; 
col or size ■ COLORS 
count 2 = 0; 

' ianBase= (struct IntuitionBai>> ■ 
Op-i- .->, "intuition. library", 0); 
ntuitionBase == NULL|i 

I 
print. I n't open Intuition library\n"> ; 
exit 

) 
Gf xBase = < struct Gf xBase •) 

OpenLibrary I "graphics. library , 
if (Gf xBase == NULL) 

ouldn't open Graphics library 
exit (21; 
) 
if ( argc 
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I 

: ( " Need name of output file and Vn" > ; 

: (• one or more object's points files, \n" t j 
printf {' and an 'eof file called '9999' \n" i 

I 

i f l ( pp * fopen( "Zbparams- , -r* ] '< = 

printf (" Need a ' zbparams' file with eye position. \n) ; 
exit 141; 

f scanf (pp. " Id Id Id Id " < &xcye J *iyeye 1 (.zeye, tyon] ; 
f close [pp> ; 
ptn n*J; 

printf (• '); 

printf ( 'RENDER an OBJECT/OBJECTS\n- » ; 

">; 
printf (" from a Point of View Vn\n*l ,- 

■ H* * \ ; 

f| "Copy right 1993 by Laura M. MorrisonNn*) ; 
printf (-\n\nVn\n\n\n\n\nVn-); 
/* set up storage for the c value of each point 
on the screen. * 

D; 1 •: HETGrn : 

< 

bufsize = 2"WIDTH; 
zptrti) ■ (WORD *) 
A 1 lOCHem ( bu f S i ze , MEMF_FAST I MEMF_CLEAR ) ; 

( 
printf ("No memory for zbuffer row *d.\n", - i . 

goto quit; 



i '* set all the z values to the maximum */ 

[EIGHT; i + +> 
( 

rowptr - zptr [i| ; 

< WIDTK 
I 

• (rowptr**) a yon; 



/* Set up a CustomfiitMap and open a screen 
to receive the rendered image. * 

i :ct BitHap "l AllocHetn 
.Of (Struct BitMap»,HEMF_CHtP) ; 

. itm==NULL) 

printf ("Couldn't allocate bmap struct Vn* I : 
goto quit; 

rn i t Si tKap(bi Cm, DEPTH, WIDTH, HEIGHT} ; 

planesize =(LONG] (WIDTH/ 8) "HEIGHT; 
for (3=0; 1 < DEPTH; ; 

> V 1 aneg [ i ] = I PLAKEPTR > 

AllocRaster{WIDTH.HElt 
• ^Planes!. MULL) 

I ( 'bitmap planes were nul 1 \n" i ; 
goto quit; 
I 

BltClear(bitm->Planes(U. planesize, II i 



newsct ,CustotnBitHap = bitni; 



reen * KDpenScreen(4newscrl ; 
if <scr»NULL) 
{ 

■ :cr was null \n") ; 
goto quit; 
) 

icr->RastPort; 
vp s iscr- >V i ewport ; 
nw. Screen ■ scr; 
w ■ OpenWindowUnw) ; 
goto quit; 
/• Head in a special pa let- ■ ■i-pal',"/ 

p f h = Open ( "pa 1 * . MODE_OLDF 1 LE I ; 
;,L|i 
I 

cols a &cmap[Q| t 
nb ■ Read [pfh, col s , colorsi ze t ,- 
Close (pf hi ; 

iH.GB41vp, cmap, 161 ; 
) 
set Rest Irp.Oj ; 
number = 1 ,- 
nextf ile; ; 
number**; 
print t i. - "t ; 

t ["Now processing file ls\.n",argv [number 1 1 
'itrcmp(argvlnumber] , *9999 - 1 ; 
if { dif ==Q> 



•; 



i 



goto finish; 



strcpy Unfile, argv[ number] i ; 
zp ■ f open (inf ile, "r'J ; 

if Up == NULL) 
{ 

goto next file ; 
l 

eadm ore:; 
fscanf(zp,- Id Id Id Id Vn", 
tec , fcxob j , Eyobj , fizi 
if (cc > 99?) 

t 

fclosetzpi ; 
goto next file; 
I 
count 

f float > xeye; 
[f loat Hyeye; 
zeye; 
( float S zobj; 
[ float )xobj; 
(float 
(zo-ze) !■ } 



ye = 
ze = 
zo ■ 
xo ■ 
yo = 
if ( 
I 

kl = -ze/ lzo-ze) ; 
xsf ■ kl*(xo-xei * xe; 
ysf = kl*(yo 
zsf ■ 0.0; 

xwld = WIDTH - (inttxsf; 
ywld [intlysf; 

xscr = xwld; 

> HEIGHT - ywld; 
xscr > Oliifxacr < WIDTH* 

tMysc- iyscr--. WIDTH) t 

i 

rowptr • :cr I ; 
oldval = *f rowptr ♦ xscr); 
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aval] 

rowptf =zptr [yscr] s 

* 1 row] zobj ; 

SetAPenfrp.cck" 

fscr) ; 

I 






' end of eye inside object */ 
ui Message *) 

GetMsgJw->UserPortt ) !« NULL) 
I 
class = tress ->C1 ass; 
code « mess->Code; 

Rep lyKsgl ires. 

if ici :. 'LQSEWINDOW) goto finish; 

■lassie VA.MLLAKEY) ti (codes «'q'] ► 
goto quit; 



goto readmore; 

Closewindowlw) 
w i NULL; 

ScreenToBack 

printf f"\n\n\n 



Finished . . . \n' • 
\n">; 

eg to ram: . .. \n\n' 
strcpy( out file, "ranu*l j 

■ 

■ (out file, "rend" \ ; 
ofh ■ Open lout t iie, MODE_NEWFILE» j 
if <ofh !• Nl 

1 



,*0; i < DEPTH: 



for 
( 

nb* Write<ofh,bitm->planea[i],planesize>; 

\ 
cols « icnvaptO); 

-s. colon 

I 

2 = 0; 
itoa I number, str) ; 
strcpy(ou' 
strcat <outEiIe,a.rgv[ J ] ) ; 

<outfile,"ibuf"); 
s treat loutf ile.str) ; 

' jpen lout E ile. "w* ) ; 
/* Save z values as this may not be the final 
rendering of the entire picl 

be needed to make iteoftwopar 

renderings, ■ 

itt = 0.' row * HEIGHT; i 
t 

for f col = D; ol«»;i 

row] ; 
cc ■ Readi , col , row) ; 

.ptr * co: 
c !«0 ) 

< 

tpnntf iwp. - Id Id td tdSn",cc,col,row,zval| 



caurr 
f* When Qui 

open anothi . * 

' 2 > MAXPC 

f print f <wp, " t 



. :■ . In 



fclos> 

count2»0; 

numb 

itoa (number, 
strcpy loutf lie, "x 
street I out file.argv 
etrcai 
■treat Eoutf ile.si 

' Cf 1*, *W* I ; 



\ 



. • Id Id Id td. \n",dm,dni t dm,dJM; 

se(wp> ; 

■.,'» CloseWindowlw> ; 

I 
CloseScreerMscrt ; 

0; i < DC 
I 

I ' 

FreeRas: 
I 

::TH; 
J; 1 < heigh; 
( 

i t \ zp- 

I 



' 



" ; -:'::■•.-:. -es", "a") ; 

fprintf Up, "Yn\n Is %s r. -, ai ;v[0).arg-. 

fprintf <lp," Id td Id td \n',xeyf. 

lonSase) CloseLibrary ( Int 

c losebi br a ry i G E xBai 



1 toa is Ere 
C Program* 
itoa (nt, str t 

. 
int nt ; 















nt 

. 
do | 
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) whil 10 > > 0) ; 



for i 



) 
retur 



Listing 2 



.c Li si 



le *exec/exech* 
1 

:•' 32 





iO0L 




i 'OOL 


exter 








ushof: 

- 






• . 







• * 



: 
LOW 



.:.- 



count, row, eal, cc, i, j, kr 
Int dummy, dif, number, count 2; 
int xobji, yobj, zobj, xscr, yscr, zscr; 

'±n = 999; 
LONG ,, nt; 

"wp; 

co lor size = COLOR 
yon ■ 20 00 Of 

urge < 3 t 
« 
printf I" Need nan* of output file, then 
ft" names of one 

r.en an 'eof ' f j le called '9999' \n"l ; 
exitllOJ ; 

Intuit ionBase= (struct Intuitionfiase *l 

OpenLibrary C intuit ion. 1 ibrary " 

print H "Couldn't open m library \n*> s 
111; 

) 
Gf xBase i (struct Gf xBase *> 

OpenLibrary f 'graphics - 1 ibrary* 
i xBase - 
I 
printf ("Couldn't open Graphics library 

prim 
printf ( 'MERGE ^BUFFER FILES\n") ; 
prim *)j 

f( "Copyright 1993 by Laura M. Morrison 

" J ; 

AllocMesMsizeof - ritKap»,MEMF_CHIP) ; 

if ibitm-- 

jllocate bma; 
goto | 
) 

■■iiTmi.m.1 

planesize = (LO**G) (WIDTn/St "HEIGHT; 
for (i = 0; L •: DEPTFlr !♦♦] 

a[i]= tPLANEPTTt) 

IGHT) i 
•Planet ILL) 

planes wer« 
goto fin; 

BltClear(bitm-:> Planet u, 1) ; 

newscr.Custor 

scr ■ { struct Screen *JOpenScreen(4knew: 

:r==NULLF 

printf ("scr was r 

goto fir 



:;cr->RastPort; 
vp = h . wport ; 

p f h ■ Open t 'pa 1 ' , HODE_OLD k 
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• 
4 

cols = i.cmaplO] ; 
nb ■ Read < p£h, co Is, colors ize) ; 

CloseCpfh); 
Lo4dRGB4(vp f CIMf 

SetRGB4(Vp, 0,0.0.0) ; 
SetRast(rp.O); 
i* Set up a buffer to save a z value 
for each screen pixel . * 
for ( | - HEIGK1 : 

I 

bufeize ■ 2 •width? 

zptrti] « (WORD MAllocHemtbufsize, 

HEHF_FAST I HEMF_CLEAR> , 
It (zptrli)--NULL) 
I 

Cf C* No memory for row td : 
goto quit; 



forU = 0; i < HEIGHT.' 
I 

rowptr » zptr [ : I ,- 

; WIDTH; J++] 

I 
*C rowptr ++] = yon; 



number ■ 1? 

nextzbuf : ; 
number * * .- 
print C 4" 'i; 

ocessing file fs ^n*\ argv [number ) |i j 

dif b strcmp{argv [number] , "9999* ) ; 
if t dif==0> 



goto finish; 



I 



' i le.argv [number ) ) ; 
ap e fopentinf ile, "r"t ; 
if (apssNULL) 



I 



print f 4' Couldn't find *zbuf Is . . . \n" l ; 
goto nextzt , 
) 

fscanftap,* %d id %d td\n' t 

&cc,icol f irow.izobiJ ; 
C > 99?) 

fclose(ap>; 

ap = NULL; 
goto ne>:- 

rowptr ■ zptr (.row) .- 
oldval = • (rowptr * coU; 
if (zobj < oldval) 
' 
rowptr=zptr[row| ; 
•I rowptr + col) = zobj; 
SetAPen4rp,cc> ; 
WritePixel (rp, col, row) j 
J 
goto readmarea; 
•h:; 



ScreenToBack 4 scr } ; 
print f 4 "\n r. " I ; 

priii- hed ,.» writing output files, \n" J; 
*i"J* 

strcpy (outf ile, "rasn;- J • 

itfils.ai 
strcat loutf ile, *r 
Ofh »Open[out£i]G,MODE_NEWFILE) r 
if (ofh 1 = NULL) 
I 

. c DEPTH: 
4 

."•.,bitm~>Planes[i] ,planesize) ; 
J 
cols ■ 4ctnap{0) 3 
nb ■ Write (ofh, cols, colorsize > ; 
Closetofh] ; 
) 

number ■ 1 ,■ 
count2 = 0; 
itoa (number. 1 

StrCpj un:"); 

strcat (outf ile. argv[l ) ) ; 
strcat (outf ile, *zbuf ") ; 

e.strl ; 
wp ■ fopen . "w" I r 
prin'. *> ; 

Lng output filets \n", out J 
for (row = 0; raw < HEIGHT; raw 
4 

for( col = 0; col < WIDTH ; col + ») 
4 
rowptr ■ zptrirow]? 
cc = ReadPixel(rp,col,row)? 
zval * * (rowptr * coll; 
if ( cc !=0 > 
( 
fprintf [wp, - %d Id Id %d\n",cc.col,row, . 
• •• t 
t m When output file gets large clou 

and open another. •/ 
if <count2 > KAXPOINTS* 
I 

fprintf (wp," %d *d Id %d 

dm, dm, dm. dm) ; 
f close (wp) ; 
wp * NULL; 
count 2=0; 
number**; 
itoalnumber, :-•■• 
strcpy tout file, "ram:") ; 
strcat 4outf ile,argv[l | ) ; 
strcat (outfile,"zbuf I ; 
strcat (outf ile, stri ; 
wp ■ f open (out file, "w- 1; 
if (wp==NULL» 
( 

goto qu 1 t ; 
I 

else 
< 

printfC "I; 

print f (-Writing output file %s\n*. 

out : 
J 
■ -tart a new file •/ 
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■ 

*d i< 
NULL; 









■ 
Closes 






nesfi] > Q) 
FreeRast t 

■ 
1 

•WIDTH; 

HEIGHT; 

( 
r I i eMem(£pCr 1 i] .faufsizel' ; 

J 

_Noces', 

« 

=0; 1 < number; 

Clip* * is ". 

Eclose(lp) ; 



] 



CloscLibrary I IntuitionBasel 
ise) ; 



; 

nt « -r 
1-0; 

- '0'; 

'') > 0) ; 

■ 

StrliJaSCl 

Etrljl 

\ 

I n C ) ; 



Listing 3 



iqen.c L. 
- - the shadow 

• • floor > 

Copy: Laura M. 

■ include "1 s.h* 

ri.h' 
.jntMsch" 

•th.h" 

64 0L 

/* rnapl [ | and map2 [ ) assign color regit ints 

. More 
- 
. : int mapl [ ] = [ 0. 1 , 6, 7, 

I, 14, 15, 
. . . 2, 3 . 1,2,3. ] , 
4, 5. 6, 4, 5, ( 

7, 8. 9, 10, i: 
7. 8. 



• NewScreen news - 1 

XjHBITHAP, 

• : 













■ 








■ 






















" 


■ 




Gf xBase "GExBase; 








pat ; 








, . - ; 





























• 
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roair. 

iriE atgc: 
char "arc 

i , cc J 

■ . ; 

. " . . V 

LONG 

I 

■ ed name of c 

* I ; 

Op- 






, ... * 





















print f f Keen n*J j 

■ 
■ 

■ . 

: 

col td[ i | = du' 

n\n color ma: : 



I . ;: . 









Del,.., 

■ 

;-■•..■ ■'..',' • 



n'U 



..■Port; 

,-ltoraw r J 

; 

n"l ; 
goto qu . 









; 



■ 

Eh I ; 

Load: 
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numbe : 
couir 

: 

r 

. "a" I ; 












I 



' 



f scanf lap. " Id 



■ 



: 

■ 
■ 

■ 
* Gel I he •-. mow color, ev- s on a 

. ■ 
01 







•■: % rep\ 






; 


. 




= 0; 





■ 



dun 

f* The pattern 
BUD 









. 






CS! 



Id %d Id t 

I , 
court" 

te under MAX point. 

if (count2 > MAXPOIHTS) 

EprinttMwp,- Id Id *d Id \n',dnvdni,dra,dHi) ; 
serwpj t 

■ 



strcai 

B,'a' ; 



file Id ..nbern 



r 
} /* « 

o readmoi 

Ip ■ fopenC'df 1 :Run_Nates'", "a" ; 

1 
fprintf ilp,'\n\n is lsls\n-. 

/(0'],argv[l],ar<r 



f close lip) ; 

fprxnt f{wp»* Id 



IdJ •.xlit.y] 

. dra ) s 



it {serf 
i 

Screen (si 

for I 

i 

> 0} 

rHTt J 



>nBaset : 













1 










• 








■ 


■Jill 










itoatncatrt 










. 










I 










int : 










lit) < 




















• 




















nt 1 


10 




D 


■ 








. 




• 










• 




















. 






• 



Volume 3, Number 3 



41 









Listing 4 






■ 



II Of '. • :le. 

Copyright 1993 by Laura K, Mori 

• include "scdio.h" 

jde M intuit ic: 

onbase.h" 
* . : . ude 'exec /exec. h* 

■ 

: 4L 

• defme HEIGHT 400L 
•deEineHAXPOIOTS 4000L 
/• Zci • be need- 
to be 



98. 0.44506, 0. 

... 
0.68068, 4540, 

0.61158, O.b 

,02102. 
. 
1.204 

1.33 . 1,387 

1.46608, 1.49226. 1.51844, 1.54462. 
f* 'naps' 



static ir.t map. 


6, 7, 


8, 9, 


13. 14, 


1. 2, I, 1, 2, 3, 1, 2, 3 








,8.9, 


. 


stati 


6. 7, 


. . 


. 


. 




, 









static 

TcmapU6I; 

low *w; 
extern struct Screen * 
extern struct Screen *scr2; 

/■ Set up one input and one output screen. */ 
struct NewScreen newer: 
0,0. 640,40c 






0,0,640, 

CUST: OMBJTHAP, 



*rp2; 
■true: 



.■.'Port *vp; 

1 



.oat fcj. • 

owf, coif; 







The complete set of listings and source code, 

along with the illustrations and tables 

mentioned in the article can be found on the 

AC TECH disk. 



Please write to 

Laura Morrisson 

c/o ACs TECH 

P.O. Box 2140 

Fall River, MA 02722 



42 ACs TECH 



StateMachnne 



by /.T. Sta 



StateMa chine is intended to allow an Amiga programmer to create 
finite state machines with a graphical user interface, rather than generate 
the program by hand. StateMachine does not generate the action func- 
tions associated with the finite state machine. This is up to the user of 
StateMachine. 



A state machine is .1 program that executes a given function (the action 1 v 
given input is supplied ithc state), Ihen it moves to another state (the next state) anil . 
for more input. This input is supplied by .1 user-supplied function that essential 
lexical ana lyzer-generator (scanner), A 'scanner' takes an input tile and break* it up into 

1 s(l v , keywords, whltespace, punctuation, etc). Based on the 1 eme, it 

returns a value to the Unite Slate machine, which in this case ' s -died the Si,, 
machine generated u lot input; thereto 1 'machine 

program will be: 

year it it Much trot « input iWfknlt tt». flla output fcourc. fK, 

NOTE: you decide if the output is redirected by how yuu define your output functions! 

In a way, your t amputee itself is a large si h ith instru*. I nig as 

lexemes, execution of the instructions serving as actions, and the operating system 
determining what the next state ol 

So when exactly would a programmer use a finite Stale machine instead of some- 
thing straightforward, like a large case statement 01 a series of if-ihen-else constructs? For 

* mined a simple MiCf"-e'! Wiruto , - 3 x program, you it ill 1 
that all datj communications betweei q stem and a windows ap| 

done 1 1,1 mi ssagei Hundreds of them! Even' WmMainfi ' 

statement (or calls function thai does) in order toi e that the program 

will respond to. Even for simple programs this cast- statement can be quite large! 

•, in also uses messages, sent to the IDCMFurl attached to all opcfi m mdows. 
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Fortun.ii.'k . Intuition has fewer messages to contend with, 
so it's i tatr^nents for decoding 

what the uwr is doing with the GUI. Unrbrtvnad 
IDCMPi ear seijuerm ' this 

rules oul u stale machines for the GUI decoding 

(IDCMP message « allies are powers of two This moans a 
finite state machine might have a very targe (2 A 32) next- 
statcactton matrix mih very few used [ "hi* i> 

known as a sparse matrix), 

if IDCMT message values were linear, Ihis is how 
MP message decoder could be constructed 
finite slate machine; 



ncM ttficu. iccw xuan uoot-. 

•hi la (looplBff .» TWt) 
i 
if t !**■•■<?■ ■ tatruet Int*lN*i**a* *> 

fr»ta»*i ay wiodcw- »Ui»t»oti ii ■■ ipau.1 
t 
Irold) Willi I It « ay »lnd«->«B algal-- i; 

c wnlam 

) 

■coda » tiHHg«'»C4dif 

I void I a*ply«*B4 iMIMti I J 
Hltdb IkIuij 
1 
caaa MHlSIMntQVSr 

DoMouaaalilUM 4 •COda I I 
braai,- 

CM* KmWICK: 

SacodaaaBuCakaecfetl unmr acoda >, ITDOfUM! acoda l)j 
braaJtr 
caaa auawrvt: 

DacodaO*doa?Jal act loot acoda U 
brack r 
mm amtit, 

DMiHBrifUeilli 
bradti 



I 



cat* urRunrtMDOHi 
QpdataOrapoicini 
braaltr 
eaaa CUMMngn: 

. -x F ltan-jHrlpl> 
PO .CI ***Vp I i J 
looplss . fJLLlCj 

Saiwlti 

be«»Xi 
] 



LE »hara li anal •.' 



cmuKKD swro * fiwiti itati uciib: 

wbiia i Looping ■* troti 
I 

LI i'iaa*«ac)a • 4 it nut Inculaaaaaga *| 

Getaagi ay window- itjaarforl )| h mu.) 
t 

l»eldt ■aiti it <4 ay window- >ap tlgait li 
Wtt— | 

fftata • 1>«im;i-'C1iui 

PCOd* • laaaiaga- >Cc-3*: 

(void) K*plyWaff< Laaiiaga h 

[•1DCW PunctlOaTablal acoda )[ fcata l-aCllOalli 

looploo . <*ltX*».ruDctloBT*l>ial acoda II Ic.e* I .naititatar 



As you can see, the code is much simpler, but much harder to 
trace and debug! 

The places a programmer might find uses for finite stale madunes 
are file translators,, interpreters, or compilers. This means that you 
could create n programming language of your own, for example, a 
simple interpreted language that uses Amiga graphics functions i, 1 
draw shapes, etc, This is precisely what I have ctx iseri for my ex- 
ample — lake a look at F.xample.fsm, which reads simple graphic 
i retractions from an input file an 
the foOowins instructions: 




Transitions 



Part of a sanple State Machine Magran 

Figure 1 
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Table 1 



Done , Cleanup, 
Beg i n , OpenG r a ph , 
Error, Rptl- 



gnore, 
Def Move, Ignore, 
Begin, Ignore, 



Error, RptErr, Def Color, Ignore. 
Error, RptF- Error ,Rpt: 

Color , St owNum, Def Color, Ignore, 



Error, RptE 
Error, Rpt Err, 
:iove,StowNum, 

Error, Rpt Err, 

Error r RptErr, 
Def Draw, StowNum, 

Done, Clear. 

Beg i n , OpenGraph , 

Error, RptErr, 

Done, Cleanup, 

Error, RptErr* 
Done, Cleanup, 



Def Move, Ignore, 

r,Rptt 
Def Move, Ignore, 

ore, 
Error, Rpt I 
Def Draw, Ignore, 

Begin, Ignc 

we, Ignore, 
Begin. Ignc 

Done, Clear. 
Error, R] 
Done, Cleanup, 



Begin, Ignore, 
Def Draw, Ignore, 
Begin, Ignore, 

Begin ,ChgColor, 

Erro 

Def Co lor, Ignore, 

Begin, Move Fun c, 

Begi 

Begin, DrawFu: 

r, RptErr, 

Begin, Ignore, 

Begin, Ignc 

Def Draw, Ignore, 

Begin, Ignore, 

Done, Cleanup, 
Error, Rpt t 
Done, Cleanup 



Begin, OpenGre 
Def Color, Ignore 



Error, RptErr, 
Error, RptErr, 



Error, Rpt 
Error, RptErr, 



i r, RptErr, 

Error, RptErr, 



Beg i n , OpenGr aph , 
Def Color, Ignore, 



or, Rpt: 
Error, Rpt E 



tOttli 

M7VI II. Tli 
DUH XI. Tli 

The first th I igure out la what lexeme! the 

scanner must recognise and return to the Rnlti state machine. For the 
example, the scamnei must recognize: 

euabara, coaaaa, aaaieelOM, *HUaipaci. mllm, 'ixui', '&0W, "COLOP', 
'HCWI', 'HUM' UdHr. 

Next, Ihf pn i^jmnwr must decide what to do when the scanner 
returns a gjvrn lexeme- These are the action functions that will be 
placed into the action, next f Some actions are alv 

arrorll, Iffnoran. KM). 

The follow i! re added to Example: 

fremiti*, Bi«*fUDC. Movaruu-. QpanCriffh, CftflCol« «od Claump ■•nil ■■ RptErr 
•*d Igaora, 

up the StatcMachine program and wait for the Transition Editor 
to complete miti.ili/ii . . menu an*! 

the following actions into the requester by typing the string into the 
string gadget and pn \dd button gadget; 



Ignora. Apttrr, ttoVoa. Brawninc, HoraFuae. Opaoflfap*, GtSflCoior, *cd Claanup. 

After all strings show up in the list . .-. on the Done 

Adding' button- Once you are back in the Transition Editor, select Add 
from the Symbol* menu. Enter the following strings, into the string 
gadget in the same manni' i . -d for the Aclii H 



tsdriL*. ■nttaEpaca. tamlColoe. KIM*. UjMci, *>»•_, Dn« . Color 

EndLtn*. 



NOTE: These are entered in this order since the generated finite 
state machine expects to see the values as the scanner 

ijjjjjjjjjjjjj defines them. Only the Symbols and NcxtStale, Act ions 
entries are order-dependent. 

Return to the Transition Editor and select Add 
from the Stales menu. Enter the following stale names into 
the requester in the same manner as used on the At ! 

• 

Ban In, Darcolor, OatMOva, DafQraw. Error, and Dona. 

■ id'. ED 
do the major task of entering In I 
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mime pairs. This c.in be done by first double-dir Id 

the St.. id then double-clicking tin the Action 

name thai you want to appear in ttie lisl StafteMachine 

doesn't care how many newlines are in the 

Mi \ iSta 1 1 ipace them so that you can read 

them (See Table I i 

Alter all Nt in a nlered into the 1 isl gadget, 

we are ready to enter the prologue .and code sections of the 

pic state machine. Press the 'Goto Prolog Editor' 
Gadget and wail for the prolog editor. Enter the following 

•includa 4it4.iD.bt 
linclud* <»!iips.ii- 
tlaeluda <anC/typaa,a» 

lln^l*a» .intuit loo/.ntaltloiUiaaa.b* 

**I4 Ignaratlj f Tour (o*lltt Mill ««*»!« in it 
tbata m« net harai •/ 
<rold RptErrll, 
raid f tawthia I S i 
raid OravPuacllr 
raid Hmhacnr 
raid Opaoaranh 1 1 , 
raid ChffCalor | | . 
raid CiaaauBl.j 

NOTE: All code is already typed in Example.fsm and Examples 
Finally, we arc ready for the Code Editor. Press the 'Goto Code 

Editor* button. Enter the following C source code into the lisl 

gadget: 



■scant char -j&airi 

lot UBtecttftt • Or 
raid l9*or»i I 

If rlditr(0t •■ 'Sn'l 
1lHC0UBt»iJ 

mini 



da? I nod in ika kuhi •/ 
uaad for arror rapoittmj •/ 



raid «pt"rri: 

tpxlBifi aidarr. -IMC* Ln Input itraaatw: 

tprlacfi atdarr, -reared on liM «\f, Umcoujii i: 
racaraj 

•tnKl WavEcraan na • I 

0, 0. f«0, aoo, «, Oxrr, ourr. uiua. nttCMCMti. 

Ja3t4, itJSYTI "I 'StataMacblna Euaplai-, (TILL, avU. 
I 

atruct KawMindov ow ■ [ 

s. 0, **d, aeo, Bar?, det?. eiosrwiirpcw. 

MllCDOMC'LOSt I ACTIVATI I SMUT UrMSK, 

«U, Wit. IDBTTX *l -StatattlCBiDa aaaacj.a:-, 
"in.tr. K7U.. }0, 30. 140, 390, CDjmJUSC-lim 



•■rears ttraet IntulcloelhM* •EotuUkotlaaaj 

•IWtt Ofxaaia *0fk»*a« • BOLLr 

■tret Window 'ajtaap..* wiadoir ■ Hinxa 
■trtKt Ecraan ••xajjpla iciaan ■ KlLLr 

void OpaoCrarjh I ► 



ir laciOBBjl laitr. -lo«j- > .. o;. 
I 
Bl.Vtaattodai - Oi 

M.Daptfa - Ij 

M.Bidtb - lie, 

IM.IMitfht a 304, 
ao.Bldth • ia0i *"■ Malta ulBdow LoRaa aLaei ■/ 

nw.iuisht ■ aooj 

r,. HxxHJdtB • 110, 

r;* . jUiHaiaht ■ aooi 
J 
II i iotuUieoftaaa * latruct Intuition***, 'i 

Qpanlibrary I 'latultloe. library, Ot |] aa 
ntuii 
If KdCaaaaa ■ ntnici afaftaaa ■■ 

OpaaLlbrary I "Brash lea. library*, it I) ■■ HUI 

ClQf*Ubranrl ir.tuit ]D«*aaa || 
ratura. 



if : laaaapL* »cr« 



ntrucc acraas *■ OpaMeraaal aada* 



CioaaLibraryl flfikaaa I; 
CLoaaLlbraryl latum eeaaaa I; 





r > 








rjc^uT^ — 




$^Si„plifiedWe' 
"~*-Jt State Machine 

/\ Diagran, 
/ \ Synods & Actions 
\ not shoun 






Lrror jat 




C DefMovej) 






^ QDefDraiT^ 






vQ 


) V 






Q Done j** 










Figure! 
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f«!urr., 
BW.*if«»U ■ 1M«||.KnUl 

Li | :«u(li .window * I •cruet Window »l Op+fiHi»<k~l andaiw II 

t 

Cl«4*fCf*ra[ «UB|)l«..ICrMB If 
Cl0*aUbiar|r C OtlUMaa .n 
LUepstibrarrl Intaltloalua lr 

I 



CaaCbloi *. 



I« amW - < -1, . 9 )j 

»0i« Itortiali /» itora ouabti* (« BrawTunc. NonruK and 



»K»ra iat atoll char ■ }j 
tat Indtox • Di 
wfcila ruuaaitDdail j. 0] 
LbAm*»j 
nwuClpdul • atoll MMti 

void OrawFuac •! I 

it I ananpla^ window !• aTJH.1 

Dr»wi •**■(> t a _wladm->**eR. Mi|{|. 
BUHIOI • Will ■ -1. 

ntam 

void Movarnncn 

If l«*«"pla window I- ntU.) 

*S»«I axaaj>la_*indov->»airt, dimII], 

nuna[0| • miull] i -1, 



■Ell li 






*eld CDoColorO 
I 
«'-«« «ruet Viewport 'VlrvrortUdiaaa I «mei Hindow • n 

If Kxuplw window I* mi| 

I 

SatASMI Vlww*ortAddraaal ITTITl I r1 ml -|i |, ■tiMfwi, «nma|l). 

BUMI3J, hum)]: 
i*ti»wfi| •jtupl«_vindow>HFei:t J au»*i(!] li 
I 

BUM 1 0] • IWMtll - MIM[]| ■ BUHtll * -ll 

Mttrai 

I 

•lfntef Tun 
Him tin* T»UI 1 
Maftoa FUJI 

taUl 

TO»d CJ«*B'jp| i 

i 

OwctlBfl • TJTOtj 
VtQwQ cilia ■ it 

• Cruet latulnaaiaga 1«ug« ■ Ht?U,j 

••"■ all|J5«], "titla . udnil[0h 

if i»*l*>La winiiuw -• HDUI 
w#tO *kipL<»Di 

■ Itia. nw.lltla It 

• ■-lua-i lltla, " Click on cloaa window 9*dg*t to KIT I" li 
SatNlndeaftltlwil 'KUKim vinOCM, UUw, HOT* »j 



wfcila |C**ektB» " THOTJ 



If :ifc.nrj. 



latruct IntuiMaaaaga •> 

G*tu«3i axaapia window* >o««trort n 



l*oid| wilt I U .h uucit window- >«Mrr«rt-iav_li w llt 
continual 
i 
«•!••• » ■»i*fla->CliMiF 
iweidl HapiyMagr huiii »j 
•witch* tlaia I 
I 

caaa CUDSWUBMi 
Claciinir - FJlUMi 
•xaaki 
■ataalti 
braakj 
I 



il lauavla acraao. i. >W] 
If OdhH |. MDU.I 

it « Intuit looftaaa (■ HUI 
latum i 



ClowJeraanl much Kiiu || 
Cloiat,inr»ryi Qlxlti* i, 
CloaiLibratvi ictuiticeaaaa I; 



■tUnoaai 



if (a**a«ila_wlndow I* KJU.I 



GlOMMiade-t axaapla window 



Now, return to the Transition Editor by pressing the 'Done 

i dgel Select Save As from the Project menu and save your 
late machine source code Finally, select 'Generate FSM' from Ihe 
Project menu. This will i um your definition file into t source a tit that 
can be compiled into tin executable program, once il is linked with the 
nor, Thai's all there is to producing finite state machines) 

NOTES: 

files included with StateMachine are as follows 

FSM_A; e the name of this Me! 

ne iff ■ Title screen. Do NOT change the name , 
r 1 1 < ■ - 
StateMachine - The executable program, I h i NOT change the 
name >. i \ 

this program! 

' -.I. whine, info - Do NOT change the name of this file! 
OPSMCen - The Finite State Machine generator program. Do 
NOT 

change the name of this program! It can be [ 
m any director) jrou wish as long as the TooMypes 
in Ihe icon are changed to reflect its location. 
Change Cmd Directory =C: to wherever you locale FSMGen. 
\ lest input file. 
I SM Hesl EdealOutput - what FSMGen should prodw • 
FSMTcstl 

f-^M_Manual - Description of gadgets and menus in 

tiine, 
Article - Description of what StateMachine does, along with a 

1ulLiri.il. 

Make le for the Lattice C compiler to work on 

pie. 

I \.>mple.fsm - a tutorial slate machine definition hit 

Examples - the output of FSMGen when Example.fsm is 
supplied, 

I:\ample flex - a tutorial state mat I ion file, 

Examptet.ex.c - the output of FLeX when Examplcfe* 
supplied. 

I BstEn Inpul input file foi chei king and debugging Example 

,im. 

It is interesting to nole that FSMGen is itself a finite stile 
machine. It was generated from a more primith 
of itself 

The StateMachine i II I was created with ( 
V2.0. 1 recommend Can Do highly since it cute down on 
how much C code f have to write in order to make an 
effective Amiga- based program. 

StateMachine was inspired by a couple of articles 
entitled: 

Building a Finite State Machine' by R Wan 
ascr'.< fvurnaL February 198$ p 

\ Finite State Machine Generator" by R. Ward,C 
User's I nl 1989, pgs 101107. 
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SUMMER 

1993 

AC'S GUIDE 



Looking for a specific product for 

your Amiga but you don't know who 

makes it? Want a complete listing of 

all the Fred Fish software available? 

Just looking for a handy reference 

guide that's packed with all the best 

Amiga software and hardware on the 

market today? 

If so, you need AG's GUIDE for the 
Commodore Amiga. Each GUIDE is 
filled with the latest up-to-date- 
information on products and services 
available for the Amiga. It lists public 
domain software, user's groups, 
vendors, and dealers. You won't find 
anything like it on the planet; and you 
can get it only from the people who 
bring you the best monthly resource 
for the Amiga, Amazing Computing. 

So to get all this wonderful 
information, call 1-800-345-3360 today 
and talk to a friendly Customer 
Service Representitive about getting 
your GUIDE. Or stop by your local 
dealer and demand your copy of the 
latest AC f s GUIDE for the 
Commodore Amiga. 



List of Advertisers 

Company Poge Number 

Delphi Noetic 18 

Devine Computers 13 

Digital Creations CIV 

Dineen Edwards Cfl 



WHAT'S ON IT? 



AC'S TECH 33 Disk Includes 
Source & Executables For: 

•REXX Rainbow Library Programs 
•Programming the Amiga in 

Assembly 
•All You Ever Wanted to Know 

About Morphing 
•StateMachine 
•Programming in PostScript 
•Bill Nee's Correction 
• ACs GUIDE 

Product Registration Form 



AND MORE! 



ACs TECH 3.3 
CHECK IT OUT! 
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ACs TECH Disk 

Volume 3, Number 3 



A few notes before you dive into the disk! 



You need a working knowledge of ihe AmigaDOS CLI as most of the files n 
ACs TECH disk arc only accessible from the CLI, 

In sirdcr to fit xs much information as possible on ihe ACs TECH Disk, we archived 
many of the files, using the frcdv RX&SQlblitablc archive ulility 'Iharc' which is 
provided in the C: djndof] I hare archive files have Ihe filename extension ,lzh. 

To unarchivc a fikfoo.lzh, type tharexjoo 
For help with lharc, type than 

ns can be unarchived from the WorkBetwh bv dtmitte-t'lkkinm the icon, and lupplying a path. 





AC'S TECH DISK 

GOES HERE! 

Please notify your 

retailer if the 

AC'S TECH Disk 

is missing, 



























We pride ourstHves ir> the quality of our print 
and magnetic meata pt.ih" cottons. However, In 
♦he WoWv unnketv event of a lauirv ex rtam- 
OQed eta* ^leo** return "he ^* 10 PiM 
f^jbKcatlorVhtn ee replacement. 

r> ^jse return me cSsfc to: 

AC* itCH 
Disk Replacement 
PO, Box 2140 
FaH River mad; 



Be Sure to 
Make a 
Backup! 



Due to die terihnital and eipet internal nflufC of mrat of 
Ihe program on ihe M »r Juk ftf 

reader !•>«« cautMM, etptiullj «lun u«mf ripfrirKnul 
rjmcnmv dial initiate I he e**irt 

lijMrty of tile iauaiii> aid pertnrrrur*. f n4 ihe *>li»*t >* 
ihe AC h TECH Ditk it mumed bv Ita pun, r 
habitation*. Inc. their di«nhotavc»ihfrt «t»ilci, MR 
Ik* be liable for i»> direct indirect, iw ciifisn|ueniiaJ 
damage* rriallirtffiDan lheutcc*'mitu«eo(ilvw>liitjrr 
tin dar Al I iThi* ifncerneal may not applji 

I- < ' Ji..'.rjf>ll .. jl BKM I 



Although nun) of the ir»fc» ufc i mnct on 

l I i - Itts 4 - - '■jijbfc-.UhcAC'* 

Ti:i'H 13m*. mell and teffil tenia* <■! mii^Jiul rjlr-and 
dwBOane* o* tt* v: ■ ill 11 n,.i re ropynghl HM 
hibUraiMMh- 1*., and m*> fc« be duffcaici) m any way . 
rhcpurclUBet.h. matron areb»<>c/ 

ill II IVk 

Aho.becurlind) lA-rful »bcn werkiAJ *iih hardware 
i in* damage fliat 
caa happen AHo, he «marr dial «ni«jr rbr»e f»njech may 
*«d ike wantM ■ inilrr nBiipr' 

jftam.M rM mfmriMblc for any 
1 - Kile jairinctfint the* nnfert 
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Unfortunate! v, the code in the articles didn't work, and since it 
n tended t<i be portable, it certainly didn't make use of the 
Amiga's graphical user interface capabilities Mj rewrite ol the code 
both of these deficiencies PSMGen, which 
i-- ]t,)'-L'd on these artfc les, w as created I rom a crude working * eraon ol 
tin- articles' axle and a more complex lexical analyzer (the scanner}, 
- a unique syntax or its own for the input definition tile, 
which actually generates the C source code, which is subsequently 
Compiled b) • I DU don't have to remember whai Otis 

syntax StateMachine .".'. i'. -r.-iii - the del inirknn iile for you, The 

syntax is similar to what I.eX and YACC use for their definition nit 

LeX - lexical analyzer-generator prngram, rogranuning 

tool, There is a public-domain program called Flex, available on 
Fred Fish disk *407 that works real well i> the source code 

skeleton files don't get mixed up with the skeleton files that have & i b* 
included in your lexical analyzer, the file nami i are similar!) VACC - 

Liiher Compiler Compiler, a UNIX programming tool, There is a 
public-domain program called Bison, available on a Fred I i>l ,ii k 
also, that does the same thing as VACC. 



example. c 



: Prolog u 

y StateMaehine •/ 

/ * Cor ■ t 



Mi.niii,......,,,.,,,,,..,,..,.. 






-Lei-; used 



re-directed input , 

* * y be run from 

the c 

fun] it_fiie by 

handi* 



■ ■ 



; n Example . f sm 
■-ample expects to 



" 



?.h> 

nine: 

! 



void OpenGraph I ,i ; 
void ChgColorU : 
void Cleanup ( ) ; 

J* Bottom of Prologue V 

/* Start of Transition tab! ■ 

st ruct Trans i t i ons i 

inc 

void 

h 



nextstate; 
I 'act) | void 



/* Del I Symbol name-. 

-] 



•define EndFile 

•define WhiteSpace 

•define Semicolon 

•define HiRes 3 

•define LoRes 4 

•define Move, 

•def ine Draw_ 6 

•define Color 7 

•define Number 8 

•define Comma 9 

•define EndL-: 



/• Def ines for State name; : 

•define Begin 

•define Def Color 1 

•define DefHove 2 

rve Def Draw 3 

i ie Error 4 

•define Dune 5 

•define STOP 5 

.nsitions fsin_tablel] [111 ■ I 



WhiteSpace Semicolon 

mites 

LoRes Hove_ Draw_ 

Color 

Number Corrrna End 

/• Begin ' 

Done , Cleanup, Begin .Ignore , Begin .Ignore . B- 

, OpenGraph, 

Begin .C^penGraph, DefHove, Ignore , Def Draw, ignore , 

Def Color, Ignore , 

Error ,Rpt£rr , Begin , Ignore , Begin ,Ig: 

/• Def Color */ 

Error ,RptErr . De t Co lor, Ignore , Begin .ChgCoL 

Errr r ,RpcErr , Error r Rp1 rror 

r 'r , 
Def Color, StowNum, Def Color, Ignore , Def Co lor. Ignore , 

• H 
Error ,RptKrr , De f Hove, Ignore , Begin .KoveFunc. Error 
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ET , 









nore . i- 
.RpcEl 

En . Error ,Rpi I 



* i- - - - 



ror */ 



a , Begin , Ignore r B 
i. DefMove, Ignore . De: ■: ore , 



/* Of 

Done .Clean 

■ 
Done .Cleanup. Done , Clean 13 








FSMYFE; 


c inc 


rnstate, token; 


/•Co: 


net ion ( ) : 


FSMTYPE 


main 11 


I 




instate 


- Beg 


- 1 ken 


- EMPTY ; 


j 






token 




- 




instate = f sT._tab 












• 




< ); 






• • 




' 


ounc = 


: 



Ignore (J 

■ • 






gnore , 



). Error 






■ 



;. :..■ 

I . 






CUSTOM. 1 

■IULL 






■ 



■:ow = NULLf 

MULL; 



I 



: 

■ 
> 320; 
= 200; 



ns . r • ■ 

. 
na.tf' 

. 
if < (IntL 



irn; 

• • iSe = (sti • ■ 1 - 









1. f 

CloseLibr 

I 
nw.Sci >-■■-. exajnj 

: m • 

CldB<: ise ) ; 



»n * J t : 
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. 






, 



■ * i ; 

; 









■ 



JW->RI 



■ ! 



- 



l sill = oust 

■ 



umpi i 



TRUE; 

clasi 



k on cl 









\ vo 

:IDOW: 

; 



■ ■ i, ; 
: 















example, flex 






" 

pro 






. 
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4 2 










LORES 


4 




' 


5 






- 










: | --' ■• E •• 


e 




COMMA 


■ 






i 



i'-BUG 
int tokval = Or 

tOkV.. K()| 

1 (tokval >= 0'i 
f 

val ) 

fprintf < stdei . ' 
break; 
case W^ fpi , -i 3 - , . 

break; 
case HIRES: fpcmtll stderr, 
"is", ids i 

break; 
case LORES: I derr, 

•%s", idstr i ■ 

briF 
case EGF_: fpr nd of 

File! in" i ,- 

return 0; 
SEMICOLON: fprintf { Std 



•%s', idstr ) i 

'%3', id: ' 

-Is*, idt ■■ 



default: 

%d\n', tokval l ; 

%9\n". 



break; ; 
case MOVE: fpr 

br- 
fprintf! stderr, -V 

break; 
case DRAW: fp: ierr. 

break; 
COLOR: fpr lerr. 

br* 

break; 
fprintf < stderr, "\ntokval = 

fprint f { stderr , ■ 

break; 



tokval = yyl> 



l«ndil 
«) 

*.v 
[\n] 

■ 



/ * EXAMPLE_DEBUG * t 



: 



•HIRES* 



-LORES' 



... .... . 






•COLOR" 



•+-[0-9]* 
[OxIAl 



i idstr[c 

'. r : 1 ] = "■, D • r - 

i 

while (•Cyyt«ti 

' "; 

i + ♦ ; 
I 
idstr I i] * '\0'; 
return WHITE; 
» 

1 i = 0; 
while <"<yytcxt ♦ IJ == ' 

idst r [ i i ■ ' 

\ 
idstr [i] 

\ idstr [0J = • ;' ; 
idstrli] = '\Q's 
rrv SEMICOLON; 

( strcpyf idstr. "HIRES* ); 
return HIRES; 
) 
{ strcpyl idstr, 'LORES* I; 
return LORES; 
) 
[ strcpyl idstr, *MOVE* ) ; 
return MOVE; 
\ 
I strcpyl idstr, 'DRAW ); 
return DRAW; 

:py< idstr. "COLOR- ); 
return COL< 
I 
( strcpy( idstr, p , p )r 
return COMMA; 
I 
( sscanf ( yytext, «%s-, idstr ); 
jrn NUKBi 
I 
( sscanf ( yytext, *%s". id 
return NUMB! 
I 
( sscant r yytext, -Is", idstr ); 
i NUMBER? 



return EOF_; ) 



(continued on page 62) 



Volume 3, Number 3 



53 



Programming 
in PostScript 

PostScript Programming 

PostScript is a programming language that is of major importance to virtu- 
ally every piece of productivity software in existence, yet few programmers 
know anything about it. To be sure it is not the new challenger to C, BASIC or 
ARexx. Yet PostScript is running on computers around the world that incorpo- 
rate the very latest of technologies and fastest processors. PostScript came in 
the back door, and will always stay there since it is the language of printers and 
graphics. But every major professional -level productivity application has to use 
PostScript to generate high quality output. The time has come for you to take 
the plunge. Join me then in this three-part voyage into the world of PostScript, 



What Is It? 

What is PostScript? "The PostScript language is a simple 
interpretive programming language with powerful graphics 
capa bill iif •-. Its primary application is to describe the apt 
ana- of text, graphical shapes, and sampled images on printed 
or displayed pages." This is the emu be definition given in The 
PostScript Language R \ u n ual from Adobe Systems 

Ira orporated. So what does that mean in peal life? PostScript is 
a full programming language th ally designed for 

describing how a printed page or display will be 
When I say full programming language I mean thai all the 
normal operators for math, i filiation, I/O, ,ind even 

stack manipulation are present 

But wlial does describing a page mean? To most program- 
mers the command lineto( 10,20) means draw a line 
from the current point to the point at 10,20, 1 he command 
executes the same way in neat l\ at! < in i instances and is 
essentially the same as the rendering. In PostScript mere are 
similar commands, but the environment is different. When a 
line to command is given, the only assumption is that relative 
to the rest of the image a line of some sort will he renders'.! to 
some point that is relatively known as 10,20. With PoslS* ripl n 
is assumed that the d mimands that are originally 
given will be modified, possibly at several levels before being 
rendered to some del ice I hat de\ ice mav be a screen, slide 
maker, imagesetter, or laser printer. I he device may be able to 
render color, grayscale, or simply black and white. 'I he id 
that the description (the drawing commands) ire independent 
of the i ile outpu I 

In fact a lineto does not even cause a line i 
Instead it adds a segment to an overall path. A path is a list of 
the drawing commands that were used to create it. A path then 



can be used to draw an outline, fill a shape, clip to a shape, or 
even be used to place shapes along it In PostScript, the 
creation of an object and its rendering are well remo\ ed from 
each other. 

Another facet o\ PostScript that is important to mertl 
that it is an interpreted language from ,i practical standpoint 
this means thai Posts rip( can be verj slow, It also means that 

ripi does not really run programs in the traditional 
sense. Instead the PostScript interpreter accepts commands 
and executes them. W hen there ire no more commands it 
waits around. Getting to the end of a list of commands does 
not cause to happen. like a page printing for instance. 

works out well because this allows one piece of PostScript 
code to be included inside another without any changes, As we 
will sir this is a very important feature. 

Under the Hood 

Now that we kin>',v ,[ little about the ideas behind 

script, let's look at it from a programmer s standpoint. 

(Script is a stack-oriented interpreted language not unlike 
FORTH. This means that as items are sent to the interpreter, 
they are placed on a sta< k until they are used. I he Stacks are 
Last in First Out (UFO). Whi id is encountered it 

takes items off the stack and places the results (if any) back on 
the top of the sta< k, For instance the '(." command it«4 + 5, 
would result in the PostScript code /x 5 4 add del. I rv 
places the variable x's name t>n the stack. The 5 and 4 wait on 
the stack until the add operator replaces them ft ith 9. I hen the 

iperator accepts a value then a name (remember, last in 
hrst out) and binds the name to that value. The def command 
does not generate a result so the stack is now hack to the 
tl w the example 
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d look inside the PostScript 

Language 



by Dan Weiss 



This stack works much the same as the stack used by high 
level languages for passing parameters. The differences are 
that you have no access to the stack pointer, and virtually 
everything is handled vi, tack as opposed to » .sriables, To 

■ ut with using the stack, PostScript includes the following 
stack manipulation commands: pop, exch, dup, copy, index, 
roll, clear, count, mark, cleartomark, counttornark, These 
operators all work on the operand stack, The operand slack is 
the one used in the example, and the one used by most 
PostScript operators, There are, however, other stacks — the 
dictionary stack, execution stack, and graphics state Stax k. 

Hello, World 

Now that we understand the basics of how PostScript 
works, let's write the PostScript equivalent of the infamous 
Hello, World' program. In PostScript we draw a box. 

newpath 
lOOlOOmoveta 
200 100 lineto 
200 200 lineto 
100 200 lineto 
100 100 lineto 
stroke 
showpage 

If you have access to a PostScript printer, or a clone like 
POST, then stop and enter the program. If you did it right you 
should have generated a square about 1.5" inches from the 
bottom left corner, and it should be about 1.5" square. For 
those without printers or POST, the box looks like this. 
Congratulations, you just u role your first piece of PostScript 
software, Let's lake a quick look at it, 

The first command newpath A\: ,i\s needs to be called 
when there is no existing path. This initializes the current path 
to be empty. Now that path has been initialized, we have to 
give a starting point so we send down 100 100 mo veto. The 
lineto commands work pretty much as expected, but remem- 
ber, they do not cause a line to be drawn, they simply add to 
the path. When wc get I Lick to the starting point the path is 
complete, but it still needs to be rendered. The stroke com- 
mand causes the path to he drawn with the current line W uith. 
dash pattern, color or gray, miter limit, join, and cap. The 
stroke operator consumes the path as part of its operation, and 
initializes the path like the newpath operator does. At this 
point the stroked path is silting in the image buffer, but net yet 



printed. The final command in our example, showpage, forces 
the page to be printed. 

Congratulation-, j oii*i e completed your first PostScript 
program. Now let's go back and improve it. The first thing to 
do is add commands so that we can set the thickness of the 
path that strokes the rectangle. The stroke is always centered 
on the path and is rendered according to the current settings, 
-ven if the settings were different when the path was created, 
f he operator that sets line thickness is i illed setlinewidth. It 
expects an number that is in decimal points (I /72th of an inch) 
To set a quarter-inch thick line tor the box, wc need i 
setlinewidth to our code at some point prior to the stroke 
command. Since the setlinewidth operator does not affect the 
building of the path, it is customary to place it right before the 
stroke command. So now our code looks like this: 

newpath 
100 100 mo 
200 100 lineto 
200 200 line to 
100 200 In 
100 100 lineto 
18 setlinewidth 
stroke 
showpage 

Now when we send the code down to the printer we get a 
box that looks like this, Notice the cutout in the lower left 

r? This results from the u .e. PostScript draws thick lines. 
In the default mode il starts at the start of the path and stops at 
the end of the path. Stopping at the end of the path leaves the 
i u 1 out We need the stroke to go a little further The distance k! 
equal to hah' the thickness ol the stroke. But compensating for 
it in the program would be a nightmare as the distance is 
different if the lines meet at other than 90 degrees to each 
other. 

But as mentioned before, PostScript is a language de- 
signed for graphics. Obviously this is a serious probk 

specific answer, theclosepath operator, The clos 
operator is used in place of the last lineto. This I 
lo connect the current point to the first point and treat the join 
as if it were just another join in the path. This way the box ends 
up looking like we expect it no matter how thick the line is 

Next we want to fill the box with gray. Let's take the code 
tar and replace the stroke command with a fill 
operator Additionally we will use the setgray operator \> 
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the level of gray we want The eetgray operator defines white 
as i and black as 0. So a dark gray is any number less thai .5 
and a light gray is above .5. fn effect we are setting the percent- 
age of white in the "ink" we will be using. Adding the setgrav 
operator we have: 

new pa I h 

100 ICO mo veto 

200 100 lineto 

200 200 limn i 

100 200 lineto 

closepath 

[8 •-..•thnewidth 

,75 setgrav 

fill 

-• In''.-, page 

-etlinewidth command does nothing in (his case, but 
doesn't hurl an\ Hung SO we leave it in. The result oi the code is 
a light gra) box 

Now lets tackle the big task rendering a bo\ with both a 
Stroke and a I ill The simple answer would seem to be to add 
the stroke command back after the nil command. But if we do 
that the printer will only image the filled box. This is so 
because the path thai was filled was consumed by the fill 
operat or before the stroke operator could use it. Since there 
was nothing to stroke, nothing happened [here are two 
solutions, both of which work. The first is to describe the path 
again before using the stroke operator; this has the unfortunate 
side effect of doubliiu', the size of tin code. The second answer 
is to take advantage of the graphics stack. To do this we need 
two new operators, gsave and grestore. The gsave operator 
tells PostScript to save a copy of everything about the current 
graphics state on Ihe graphics stack, except the graphics 
rendered so far. The current path is one of the things saved, set 
we can use it twice with the following code: 

gsave 

18 sell inc. 
stroke 

grestore 
.75 set gra v 
fill 

When the grestore operator is executed, the original 
version of the current path is restored, even though the stroke 
command consumed it. An important facet of I', 
programming is to make your code as short as possible, and 

sve, grestore combination is a powerful tool in achieving 
that goal. With the new g store code, our project looks 

like this: 

newpath 

100 100 moveto 

200 100 lineto 
20O2OOI • 

100 200 lineto 



closepath 

gsave 

IH setlinewidth 

stroke 

,75 set 

fill 

showpage 



But if we swap (he order of the fill and stroke, along with 

I he 1 1 support commands the output is i 

This points out a very important feature /limitation of 
Script. Once a path has been rendered to the image buffer, 

it is there to stay. It can not be changed or manipulated in 

anyway, but it can be overwritten. In this respect PostScript is 

much like a paint program. 

In Comparison to C 

\ow that we are familiar with the basic operators and 
have a bit of a feel for how paths and graphics work let's 
compare PostScript tQ 'C. First off 'C is a compiled langi 
whereas PostScript is interpreted. The major repercu^mns , ,i 
this is 1 1 i.i | PostScript is slower, but does not need to be 
compiled I he second difference is that PostScript uses § s| lS , k 
based System to pass data to all its operators, even procedures. 
I he third difference is that there is no concept of the entire 
xnirce or ob^ t hie being located somewhere. While there is 
looping, there are no labels or goto operators of any sort. A 
PostScript file i d as it is received. 

Other than these major differences, PostScript has much in 
common with other high level languages. As mentioned above, 
esigned to describe graphics, and that it does do 
well. 

Bigger and Better Things 

Back to our sample code. Since we are mimicking the 
•, kissii "Hello World" program, our code should say "Hello 
World" also, To do this we need to use some font-related 
operators. Due to tb i ipt handles fonts, this is 

likely to be much different that you are use to. 

Tit image text, we must first find, scale, and set a font. The 
hrst operator, find font, accepts the name ot .i font and u h 
find it, If it can, it will place the instructions for the font on the 
dictionary stack. If it can not find the font, it will place the 
default font on the stack ^ usually Courier) and report an error, 
Ihe instruct ions that are placed on the font stack are for a one- 
point /72th of .in inch) version of the font. Since this is 
usually too small, we need to enlarge the font with the 
s t alefonl operator. The scalefont operator accepts a pour 
from the operand (main) stack and a font from tin- dictionary 
-tu k it either is missing an error will occur. The results of the 

! lefont operator is a scaled version of the font replat 63 the 
original one p. moti the dictionary stack. Now we are 

ready to use the font. Finally we use the setfont operator to 
pull the scaled font off of the fonts stack and use it as the 
current font With the current font set, we can use the show 
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operator to render some text The show operator acci 
PostScript siring (surrounded by () ) and does nothing but 
render the text in the image buffi- 1 ting 10 the current 

settings, much like fill. But wait, where do we want llu- 1 
go? Using a moveto we can place the text inside I he boa The 
following is the current t 

ath 
100 100 mo 
200 100 lit 
2002001ineto 

LOO ZOO lineto 

closepath 

gsave 

18 set line width 

stroke 

etgjra} 
fill 

/Helvetica find ton I 
18 scale! 
settonl 

104 143 moveto 
setg 

(Hello World) show 
show [ 

Notice that we have to use the setgray operator to set the 
current gray to black. If we don't, the text h ill render the same 

gray as the box fill and not be visible. 

Take Control 

Text and graphics are the heart of what most people need 
PostScript for, but it's b) ns .ill then Is to PostScript, 

There are also operators that offer a certain amount of control 
over the execution of the operators. The first is the if operatoi 
Much as you would expect it allows tor the conditional 
execution of code. But we also said that there is no concept of 
blocks of code floating around, so how does it work? Using 
curly braces || we can encapsulate a series of operands and 
operators and pass them as a block to the if operator. If we 
wanted to write only a line of text when the top of the operand 
stack is negalhi nld write: 

dup It | (Negative) show] it 

( i| i ourse we may want to do something else it the number is 
positive, so we would use thi iperator and write the 

following: 

dup 1? [(Negative) show} ((Positive) show) ifelse 

What is happening is thai the interpreter treats the i o<k- in 
II asa single object on the operand stack. Essentially it is a 
black box. When the if or ifelse operator decides which one to 
execute, it takes the aide out of the braces and passes it to the 
interpret?! 



are also operators for looping— tor, repeat, and 
loop. The repeal and loO| irs are very similar in that 

they lake a procedure, like the if operator, and have it executed 
repeatedly. In the case of repeal, a count is passed along with 
peratCH I he loop operator executes until an exit operator 
is used. By comparison, tor works more like a traditional for 

\ starting value, incrementing value and limit value are 
passed with the procedure. The control value is incremented, 
placed on the stack, and the code is execute until the limit 
value is reached The placing of the current index on the stack 
is quite useful En ma for example, to add all the 

numbers from one to ten using each operator would take the 
following code to leave the answer on the stack: 

01 l KHaddffor 

10 fexch 1 add dup 3 1 roll add I repeat exch pop 

ii [exch 1 add dup dup 10 gt |exil| if 3 1 roll add! loop pop 
pop 

This v.. mtomaki ; case for the for operator, but 

there are times when each operator has its strengths 

Looking back over the article, you can see thai PostScript 
i v different Emm the programming languages you may be 

• i ; uiied to, While we have not covered all of the drawing 
operators, you can also see why PostScript is said to describe a 
page rather than just drawing one. In the next part of this 
revies we will look at how you can use PostScript wltl 
program by constructing a PostScript header. In the final part 
of the series we will examine in detail the most widely-used 
PostScript header, the one for Adobe llhtstra 
can make use of it. 

If you would like to know more about PostScript, 1 would 
highly recommend that you pick up the PostScript language 

id Edition, and the PostScript long 
Tutorial and Cookbook. The first boob is the definitive specil 
tion of the PostScript language and tl llent 

guide to learning PostScript. 





Please write to: 

Dan Weiss 

c/o AC'S TECH 

P.O. Box 2140 

Fall River, MA 02722 
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— Nee Correction vontimtedfmm page 4 



". >*dl 
beq.s L112\a 

add.b 



addq . b 



;add 

i sase aa 





i4> .dl 




beq.s 






add.b 






empi ,b 


•50. di 




beq.s 






ad : 






iU3\» 












beq.s 






beq.s 






addq.b 


• l.aa 












>,dl 




beq . s 


















beq.s 






divu 


aa, dO 




crop.b 




bO-QiJ? 


bgt.s 







moveq.b iSQ.dO 






,* can't exceed 50 






, • : ■ 



jdoad cell became:. 

rsavt: >se array 






en dm 



color macro 
move. 1 
gfxlib 

■ndn 






rp,al 









array macro 
mo% r " 
move. 1 
syslib 
nova. ; 



•sh.seo=o: 



• SI 0004. dl 
allocmejn 



et .1 







dii .w 













sp 











ureter 






opensereen myscrc" 

■- 1 ndow, wi ndow , 
mov. ,j0 

moveo >rt <aQ) ,al 

move. I 
movea. 1 window, aO 

: ortaddresi 
tnove.i dO.vo 






movea . 1 


' 




i .table, al 




i : ' ' ' ■ 






move. 1 


<>,d0 


gfxlib 


setdrrad 


get_bit_pl 


■ 


movea » 1 


rp.al 


. 


1 ,al 


lea 




move , 1 


. 


move . 1 








move . 1 


20t CJ . 


:- >V». 1 


24 (all , 4aQj 



;bitpl.ane addi 



roonory : 

I ,close_windaw 
movea * I dO , a 4 
array array2,close_oui 

i in lorn: 



: 




•ve.w 




moveq 


•0, across 


• 




. 






across, d4 










move * b 


d-i.dU 


wove.b 


d4 ■, sum 


etnpi .b 




i w q . a 


r2color 


asr.b 




addq . b 


11, do 


• 




color 




pset 




move . b 




swap 


d4 



• 



. 
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cropi , . , down 
get_ 



nvovem* J 




• 


moved * 1 






move, I 




■ 


subq 










• 






le it 


lea 




;tM 


:"i:l ; 


. 


i get 

i ari'j .-* it 


lea 




or coiwna 






. 


. 






subq 
















. 






• 






• 


add, b 






. 
















: 



■ 
■ 

















: -1 , .J 








;50-gg 


lea. 1 






show-it: 






uleft 




. 


movea . 1 












moveq 








,d0 


_'■ ' Ui 


test 


: - 


. 


trow 




• 1 


Fovea . 1 










: 




arra, 




lea 


. 





























test 






lea 






dbf 








; upper - 
















. 













moveq 














. 










•• i •. 


vZ.aS 




lea 


ien^ii 




n ,-.■, ,t 


loan 






' .down 




moveq 


« . : 




















;move to 






htslde 


























dbf 


















lea 




i4 


movea . 1 








I , 




moveq 
move.b 


1 








tnove,- 
lea 

lea 

eoss 



. do 

: l c ■ 

lea 

moves . 



lea 


- 


r aveq 


to, da 








* 




; center sqi 






lea 




■ 




lea 




moveq 


wn 


moveq 












. 


' 














test 
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lea 


1 tal 




dbf 


across. cl 




lea 


2(941,94 




lea 


2{aS>,a5 




dbf 


down, 12 




switch 






move* . 1 


arrayl.a4 




moved . 1 


72,35 




jnove.w 


» Lenml . down 




si move. 1 


• lenV4-l,. across 


s2 move.l 


4a5l i 




dbf 


across, s2 




dl : 


down, si 




; moved . 


L arr.> 




movea , 1 


array 2, a5 




movea . 1 


bpl.al 




lea 


bytel i 




move.l 






op5 






moveq 


• wpi , across 




«H 






moveq 






qp3 






move . b 


£a5>*.sum 




; crave . b 


sum, <a4) * 




"!~:.> i , ;.' 


•0, sum 




beq.s 


qpl 




asr , b 


■ , , sum 




a ddq . b 


11, sum 




qpl 






ui . b 




i 1st e ' tO X 


roxl ,1 


11, d3 


; and to d3 


asr.b 


•1 .sum 


;2d color bit 1 


I Mf • . • 


n.di 


; and to d4 


asr.b 


11, sum 


; 3d color bit to X 


roxl . 1 


11, dO 


I to dQ 


asr.b 


• 1 , sum 


;4th color bit to X 


roxl . 1 


•l,dl 


; and to dl 


dbf 


d2.qp3 


:do 32 times 


move . . 


dl,$5dc0tal> 


T -all 4th coloi 


move, 1 


d0,$3e8i 


3d color bits 


move, 1 


d4,$l£40(al) 


;all 2d color bits 


move , 1 


d3, tu 


st color bits 




across, qp4 




lea 


byteoff [■' 




dbf 


down.qpS 




loop 






btst 


t6,$bfeQ01 


j pressed 1KB? 


bne 


showit 


; branch if not 




permit 




'-;..-.:.._;-..-;-,: 






movea . 1 


a r ray 2, a 1 




mow, ! 


•size, dO 




syslib 


freemen 




close_out : 






movea . 1 


array 




move. 1 


Isize.dO 




syslib 


■ i ewnem 





closejwindow; 

movea .1 wi ndow , aO 

closewindow 
close_5Creen; 

movea, 1 screen, aO 

closescreen 
close^l ibs: 

movea. 1 gfxbase.al 



sys . 

movea. 1 intbaso.al 

brary 
donet 

move.l stack, sp 
rts 

evenp : 





del 






. 




Lntbase 


del 




screen 









. 


D 


rp 


del 


o 


vp 


del 





array 1 


del 


D 




! . ! 


r| 


bpl 






bp2 




u 


bp3 


del 





D] -r 


del 


o 


bp5 


del 


Q 


fcl 


deb 


G 




dc.b 





evenpc 




90 


. 


D 


even i 






deb 


U 


evenpc 








evt. 




dc - b 




eve:.; 




my screen 






dew 


0,0, 320, 200, depth 


dc.b 






dew 







dew 












evenpc 




mywindow 






dew 




dc.b 


• 






Bfl ISabUI 1 or,.; 


. . . : 




0,0 




del 









0.0 





evr 
color_tak 

dew $Q0Q,$12f,$24« 
dew S4Bc.SSab,S6ca. 
dew 5Se8,$9c7,Saa6. 
dew Sc64.Sd43.$e22,$f01 
end 



For any questions or comments regarding this correction 

or the article, Wrtie to 

Bill Nee 

c/o AC's TECH 

P.O Box 2UH Kill Kivcr,MA 02722 
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Technical Writers 
Hardware Technicians 
Programmers 
Amiga Enthusiasts 



Do you work your Amiga to its limits? Do you do create your own pro- 
grams and utilities? Arc you a master of any of the programming lan- 
guages available for the Amiga? Do you often find yourself reworking a 
piece of hardware or software to your own specifications? 

If you answered yes to any 
for AC'S TECH! 



of those questions, then you belong writing 



AC's TECH for the Commodore Amiga is the only Amiga-based technical 
magazine available! We are constantly looking for new authors and fresh 
ideas to complement the magazine as it grows in a rapidly expanding 
technical market. 

Share your ideas, your knowledge, and your creations with the rest of the 
Amiga technical community — become an ACs TECH author. 

For more information, call or write: 

ACs TECH 

P.O. Box 2140 

Fall River, MA 02722-2140 



1-800-345-3360 
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example.c 



hen 



•* r 



hand! I 



1 






more, Beg: 



iVt-l 

towNu 
>D*fDr*tw< Error, RpCErr, 

■ i , 

DefDraw.Ste 3raw, Igr 

Beg i r\ . 



more; 
re j Begjn.DiawFurtc, 









>3one< Done, Cleanup, 

Error, Rpt h 

Done, Cleanup, 



. re, Def Draw, Igj 
Begin. Ignore, Begin,: 






■ 



■ ' 
see it 






•la to 






{9 c 

I inecount = Oj 









return,- 



■ 



-£( Btderr, "Found on 1. 

retu- 



•I 



NS 0: 



0VT1 
»Kove_ 



PEna: 



e . 












CLOSEWINDOW. 
WtKDOWCtX 

N 



- ■ 
(xBase *C: MULL; 

"exanple^window = : 
- -en *exa- 



:i< Dor- 



JefCc I 



more. 



i, Ignore? 
















;• : 






= 5; 
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Jth = 320- 

200; 
nw. Width • 320; f* Make window LoRes ale 

nw. Height. - 200: 

nw.MaxWidth ■ 320; 
nw.HaxHeight 



• 



. ,,,£■,... 



'. IntuitionBase •) 

■ ion. library- 
return; 
>Gf xBase ■ (Struct Gf xBase *] 

QpenLibraryJ -graphics. library-, OL i) ■■ 

( 

CloseLibrary ( IntuitionBase I; 

rn; 

• jjnpie_screen = I struct Screen •) OpenScreen< 4ns 
) ) >■ NULL I 

CloseLibrary ( GixBase I; 
CloseLibrary i; 

I 
nw. screen * example.screen; 
if i i example,, v | 

■ 



:t Window •) OpenWindow< fcnw 



CloseScreenC ex*»ple_screen I; 
CloseLibrary ( Gf xBase >: 
CloseLibrary ( intuit lonBase \; 
return r 

:nj 



nums[5| - ( -1, -1, -1, -1, ii 

void stowNur 
I 

extern int atoM char * I ; 

\dex - 0; 

whale [nums[ index) >■ 0) 

index*. ; 
nuns [ i r.dex ] = atoi < idstr >; 
return; 

DrawFunc ( ) 
I 

if <*XftlBpls_window != NULL) 

Draw* examples i> i : ft, nums[0], nums[il }; 

nuns [ 3 ■ numc 



>?xample_w 









HUE 

•define i-v 
•endiC 

I 

ULONG 

strui: 
: r a I 



goto Sk 

■trcpyi t 
strcal 



h 



if 1 ImcBsaije 



-* gadget 






I 



<vo. 
>mp^SigBit ) ; 
CO: 

class ■ messa ;• 

lyHsg* message ii 
swi t ch 
[ 
case CLOSEW1NDOW: 
Ch*: FALSE i 

break; 
I 



oop: 



' 



• 



void MoveFunc(l 
I 

if lexapnple_window := tfl 
Hovel exajnple_windaw->RPart, mints (01* numsjl] If 

numslOJ • nuns . 

return; 

void ChgCoU : 
I 
extern struct Viewport •Viewport Address! struct window 

if < example_window != NULL) 
( 

S*tRCB4i Viewport Address* example_window ), numstOJ. 
nums [ 1 ) ,. 






Please write to 

J.T. Steichen 

c/o AC'S TECH 

P.O. Box 2140 

Fail River, MA 02722 
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Maintain your edge ... 

U 's ILCH provides you with advanced insighl into Amiga technology; 

now subscribe to the magazines that will always keep you up-to-date 

on the newest Amiga products and late-breaking Amiga news. 



Subscribe to the best resources available for the AMIGA 



Amazing 
Computing 




Amazing Computing, the first 
monthly Amiga magazine, 
remains the first in new product 
announcements, unbiased 
rev iews, and consistently in- 
depth reporting. AC'S unique 
columns like Roomers and 
BugBiftes, step-by-step program- 
ming articles, and entertaining 
tutorials have made it the 

/ine oi choice with devoted 
Amiga fans. With AC you 

: i n on the cutting edge of 
Amiga product development. 




AG's GUIDE AC's TECH 




AC's GUIDE remains (he world's 
best resource for Amiga product 
information. A compilation of 
new product announcers > 
from AC and exhaustive i e 
search, AC's GUIDE is a con- 
stantly updated reference to the 
ever-changing Amiga market. 

With an AC SuperSub, you will 

e 12 issues of Amazing 
Computing and two issues of 
AC's GUIDE at a tremendous 
savin 




AC's TECH was the first disk- 
based technical magazine for the 
Amiga, This quarterly collection 
of programs, techniques, and 
developer issues has been 
created for the Amiga owners 
who want to do more with their 
Amiga s. If von waul to expand 
your Amiga knowledge beyond 
the ordinary 1 , then AC'S TECH is 
a must. 




Complete your Amazing Computing library 5 *" and FRS collection, 

last 



Mail or fax (508-675-6002) the enclosed order form or call toll-free in U.S. or ( 'anada. 
800-345-3360. Foreign orders please ...ill 506*678-4200, 
AC's TECH NLnl to: PiM P^^tions Inc., P.O. Box 2140, Fall River, MA 02722 




'CO; The "Amazing" AC publications give me 3 GREAT reasons to save? 
Please begin the subscripUon(s) indicated below immediately' 



Name 



Address 
City 



Stale 



ZIP 



VMS A. 



DISCOVER 



Discover Visa MC # 

Expirahon Date Signature 



Call now and us© your 
Visa, Master Card, or 

Discover or fill out and 



Please circle to incfccate this is a New Subscription or a Renewal Send in this Ofd6f form! 



i year or AC 


1 2 big Issues of Amazing Computing! 
Save over 43% oft the cover price! 


US 127,00 1 1 
Canada/Mexico S34.00 1 1 
Foreign Surface $44.00 C 


i-year SuperSub 


AC + AC'S GUIDE— 14 issues total* 
Save more then 45% off the cover prices' 


US$37.00 [ 1 

Canada/Mexico S54.00 |_ 
Foreign Surface $64.00 fj 


1 year of AGs TECH 


4 big issues of the FIRST Amiga technical 
magazine with Disk! 


US$43.95 [~~ 
Canada/Mexico $47.95 \_ 
Foreign Surface $51.95 C 



L. 



Please call for all other Canada^Mexica/toreign surface & Air Wail rales 
Check or money order payments must be m US funds drawn on a US bar*, subject lo applicable sales Ian 



S 



m 

9 



r 



MAMI 



ADDRESS. 

CITY 



STATE. 



ZIP 



DISCOVER _ VISA 

EXPIRATION DATE 



M/C #. 



SIGNATURE 



Amazing Computing Back issues $5 00 each US. $6 00 each Canada and Mexico. 

$7 00 each Foro»gn Surface. Please lis! issuers) 

Amazing Computing Back Issue Volumes: 

Volume 1-519 95* Volume 2. 3. 4, S, 6, or 7— $29.95' each 

'Ail volume orders must include postage and handling charges $4 00 each set US, $7.50 
each set Canada and Mexico, and $1000 each set tor foro*gn surface orders. Aw mail rates available 



\( * TVX -I \^iMlGA WriRk kviHihl W4.1S 
» IVk in< -I irate* for ml) 



VISA- 



onl) U5-.W: 



V1.1(hii«m).V1.2 < V1.9,VM. 
V2.I.V2.2.V2 3.V2AV3IV3 2 



DISCOVER 



Freely Distributable Software - Subscriber Special (yes, even the new ones!) 
1 lo 9 disks S6.00 each 

1 to 49 disks SS .00 each 

50 to 99 disks 54,00 each 

1 00 or more disks $3.00 each 

$7.00 each lor non subscribers (three disk minimum on all foreign orders) 



AC*1 

Ama/Jnu on Disk: *C*5 

AC*7 

ACM 
ACfll 
ACS13 

AC* 1 5 



Source S Uslirto> V3 8 ft V3 9 AC*2 

Source & UUingi V4 5 ft V4 6 ADM 

Source & Liilingi V4 9 ACM 

Source ft LtMirigs V4 12 a VS. 1 *c*& 

Source & Laiingi VS. 4 ft V& 5 AC* 10 

Source ft listings US B. $ 9 4 S 10 Ac«ia 

SourcoaiistmgsVG2t«3 AC*«4 
Source S lutings VG 6. 6 7. 6 8 ft 6 9 



Source ft Lraftngs V4 3 4 V4 4 

Source 4 Listings V4 7 A V4 9 

Source & Leungs U4 10 ft V4 1 1 

Source S Lutings VS 2 4 *> 3 

Source a Lishngs V*. « ft 5 7 

Some* ft Usbogs V5 1 1.5 12 4 6 « 

Source ft Luang* V6 4. A 65 



Please list] Rcdistrtbtiublc Software selections below 

At /**** 

(nnmbws I thtim^h !>) 
A Mitt \ 

(numbers I through 26) 
Fred Fish Disks 

(nnnttnn, / through H60) 



Complete Today, or telephone 
1-800-345-3360 now! 

You may FAX your order to 1-506-675-6002 

Please aHow 4 bo € weeks lo* delivery of 
subscnplions m US 



■ •iinliMrtmfrqH" 1 * 
Check or money order payments must be m US funds drawn on a US bank; subject lo applicable sales lax 

%Z — — — — — — — — — — — — — — —————— _______ J 



a 



Need an Extra 
Joystick Port? 




Any electronic project or project which ma) i « 

may not require modification of your Amiga 

should only be attempted by experienced 

ons. ACs TECH is not responsible for any 
damage to your Amiga or any other equip- 
ment that may occur as a result of this project. 



More than anything else, my two young children like to 
use the Amiga to wage competition against each other. For 
this situation, they must disconnect the mouse and replace 
it with a second joystick, not a recommended operation 
when power is on. Near disaster struck, almost inevitably, 
when one of my children forgot to switch the computer off 
before reconnecting the mouse. If you have this disconnect- 
reconnect problem, you may be interested in the following 
article. 



There are only two ports on youf Amiga, one for the 
mouse and the other for a joystick. [Jut sometimes you 
may want to play a game against another human, not 
only against the computer. To switch devices safely, you 
must switch the Amiga off or you may have the problem 
1 had. I had to replace a microfuse which protects the 
mouse port on my Amiga 2000. Tins is not an easy job 
because the fuse is soldered to the motherboard. One 
must open the case, remove the motherboard, and 
resolder a new microfuse. 

To protect my computei , I considered buying a 
o. itch costing around $40, but I enjoy small electronic 
projects, so 1 decided n my own with two extra 

gadgets that the other switches don't have. 

My switch is different from the commerical ones I 
have seen. Mine has no button for choosing between the 
mouse and the second joystick. When you want to use 
the second joj stick, you just push the lire button on it; 
when you want the mouse back,, you simply push the 
left button on it. The switching is dime by the electronics 
inside the box without mechanical parts, 

Another difference with my switch: it has a rapid- 
fire function for the first joystick, the one you use when 
playing single. So with my switch, I have two functions 
combined in the same box for less than the price ot a 
store-bought. 
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Build One! 






] lu parts I used are easy to find at any electron u 
components supply. And if you follow the instructions, 
you wili be able to build yours during the next weekend. 



How It Works 

Please refer to the schematic in 
Figure I for the description of the 
parts and their functions. There are 
two sections in the unit: the first 
section is the switch itself and the 
second section is the rapid-fire 
function. 

The first section can be divided in 
three blocks. The first block is repre- 
sented by U3, the selector. The 
selector is equivalent to four switches. 
One side of the switch is connected to 
the mouse and the other side is 
connected to joystick 2. The output is 
connected to the Amiga port #1, 
normally the mouse port. The selector 
is activated by the second block 
which is represented by U2, the latch 
The latch itself is activated by the left 
mouse button or the fire button of the 
joystick. The latch acts as a memory; 
as long as you don't touch the fire 
button of the Joystick, the output of 
the latch remains low and the seta toi 
outputs the movement of the mouse. 

ii touch the fire button on the 
joystick, the output of the latch flips 
to a high level and the selector 
outputs the movement of the joystick. 
1 he third block of this section consists 
of one gate U4 to combine (logic OR) 



iction of the left mouse button and the fire button of 
the joystick. 

The second section of the unit is the rapid-fire 
function for joystick 1. The heart ol this part is the timer 
UL It is an oscillator producing a train of pulses as long 
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Right: Figure 5 Not to scale 



Figure 5 



Volume 3, Number 3 



67 




68 AG's TECH 



as fire is pre m can adjust the 

pulse rate, or frequency, by turning 
POT1 , One pulse is equivalent to one 
hit on the fire button. The transistor Ql 
senses the Hue button and starts the 
oscillator if held down. Transistor Q2 
takes the output of the oscillator and 
feeds it to the input of the Amiga pin. 
Switch SWI is there to select the 
normal function of the fire button or 
the rapid-fire mode. 

First, Buy All the Components. 

For a complete list of parts, set 1 the 
Parts Table. The three tCs (U2 
are "\ ICTUS" and could be replaced 
I IC" family instead of "HCTLS" 
but not by regular "LS" or "5* family 
because of their power consumption 

I chose a tantallum capacitor type for 
C2 because of the small size; you may 
choose any type of capacitor with the 
some value, but be can til i 4 the size. 
All the components are standard parts 
and you should not have any difficul- 
ties finding them. When they are 
available at a Radio Shack, I give the 
cata logue n umber beca us.. A ores 

are well known. If you shop careful Iv, 
the parts should not cost more than 
$20 plus the cost of the PCB. 

Also, if you are not interested in the 
rapid-fire function, omit the parts 

i tug to this section The switch 
should work on any Amiga including 
the new A4000. F have already tested it 
on A500, A1Q00, A2000 and A3O0O. 

Then Install the Parts 

First, identify which side is the 
components side, the side where you 
insert the parts, and which one is the 
solder side Reter to Figure 2 for the 
components side (top) and Figure 
solder side (bottom). It is very impor- 
tant that you insert the parts on the 
good side (top). 

For those of you who are making the 
e some points to con- 
sider. Figures 2 and 3 arc doublf 



Left: Figure 2, Imoge is 2x actual size. If you 
use this figure as a template, remember to 
reduce i1 by 50%! 



(2 X). Make a negative of these two 
figures and reduce to half size. Then 
align the two negatives careful I v with 
the letter on top; you should see 
"JHH." When your IX B is done you 
I Li i e to cut it on the border (cut oil tin 
bolder) as shown in I ihe last 

thing to do before soldering parts is to 
drill the holes at the right size. If you 
drill all the holes .it 02S inch, you 
should be able to insert all the parts. 

Now you have your PCB ready. 
The first step before installing the 
Components is to solder the feed-thru. 
I call a feed-thru a piece of wire 
soldered on both sides to make a 
connection from one side of the PCB 
to the other; refer to Figure 6. There 
are 30 feed-thrus to make before 
installing components. The feed-thrus 

to locate: the pad for a feed- 
thru is smaller than the others. Refer 
to Figure 4 for the component loca- 
tions you can see feed-thrus with a 
square over the pad Before soldering 
your first feed-thru, install the PCB on 
two spacers at both ends. The thick- 
in be about 1/8 
inch. 

The i 1 soldering a 

teed -thru is to take a | slid 

wire, #22, Then you skin two or three 
inches off it and you insert it into a 
hole, solder it on one side, cut it, and 
do the same with all the feed-thrus for 
that side. After, you flip the board 

r and solder all the feed -thru on 
the other side. To assure a good 

:er, you must put the iron tip on 
one side nt the wire and the solder on 
(he opposite side. When you see the 
solder melting all around the pad 
remove the iron quickly to prevent 

: heating. Make sure that vou cut 
the wire as close as possible to the 
PCB; refer to Figure 6. 

When you have built all the feed- 
thrus, you an- ready to install the rest 
of the components I he following list 
shows the intler thai I recommend for 



Right: Figure 3. Image is 2x adual size. If 

you use this Itgure as a template, remember 

to reduce il by 50%! 
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soldering the components: 

1- socket 

2- resistors 

3- capacitore 

4- transistors 

5- potent ion n 

6- DB-9 male 

7- wires and switch SWI 

8- transition connector and the 
flat cable 

Sockets 

When you install -.ets r 

must take care of the 
direction, Refer to Figure 4 for 
the good socket direction. All 
sockets have a way to identify 
pin 1; find it and install the 
socket with pin 1 facing the 
transition connector J I, as shown 
on Figure 4, If you want your 
socket to remain in place while 
soldering, just bend one pin at 

comer after insertion i 
the PCB, then solder sockets on 
the bottom side only. Don't 
insert the ICs into the sockets 
right now, 

Resistors 

Check the color of the resistors 

before installing them on the 
IX R, The way vou read the 
value of a resistor is simpler 
there are four color bands on the 
resistor. One band should 

tolerance), turn the 
resistor to put the gold hand on 
the right side. Refer to the parts 
r the color corresponding 
to each value. For all the resis- 
tors, you must solder them on 
both sides of the PCB. 
some connections are also made 
on top. 

Capacitors 

Except for C2 r there is no 
preferred way for mounting the 

Left: Figure 4. Image is 2x actual sire, 
(f you use this figure as a template, 
remember to reduce it by 50% I 
Right. Figure 1. mte schematic is not to 
scole, 
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capacitors. C2 should have a "+" sign to identify the 
polarity Make sure that you install it with the sign in the 
good direction. As for the resistors, vtm must solder the 
capacitors on both sides ol the PCB. 

Transistors 

There are two types of transistor you can buy. The 
first type has a metal case and it is round with a little tab 
to identify the emitter Make sure that the Mb is on the 
good direction as shown in Figure 4. The other type has 
a plastic t ase and there ^ a flat on it. When you look al 
the transistor with the pins down and the Oat in front 
you should rend the pins from left to right. The emitter is 
left, base is tenter and collector is ri^ht. Yl.ike sure that 
the emitter is o\\ the tab side in Figure 4, For the plastic 
transistor, you will have to bend the center pin to insert 
it into the PCB. I or both types < tors, leave at 

it .1-1 3/8 inch between the transistor and the PCB. You 



must solder them on both sides of the PCB to ensure the 
connection with the top conductors. 

Potentiometer 

It you use the potentiometer from Radio Shack, you 
will have to bend the pins before inserting il into tin 
PCB. Use a pair of long-nose pliers to bend the pins. 
Identity the center pin; it should go into the I enter hole, 

can also use .mother type of potentiometer and d ri 1 1 
it hole in the box so you will be able to adjust the fre- 
quency externally without opening the box. For this, you 
W 1 1 1 have to solder three wires from the PCB pads (SVV 1 ) 
to the potentiometer pins on the box. Remember, the 
center wire (slider) must be soldered to the center pad 
on the PC I 

DB-9 male 

1 1 iv e la slide the PCB between the two rows of 
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Figures e & 9, 
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type 

run $40 

or more. 



pins of the connector, The top row has five pins. The 
n row has only four pins, and there is only one 
way to install it. Refer to Figure 7 for the installation of 

! s. Install the three connectors before 
soldering. The aligment of these connc. 
center the pins on the pads of the PCB. They should Im- 
pressed completely against the PCB. A little trick after 
you have inserted the connectors is to put the PCB 
vertically on a table using the connectors as a support. It 
is much easier this way to .llign the connectors. The 
space between the three connectors should be the same, 
When you are sure the connectors are correctly Si 
then soldei them to the finger pads. 

Switch SWI 

Cut three #22 wires six inches long and then solder 
them on the PCB pads marked SWI," Don't use solid 
wire; it is I to break when you bend it several 



times. Then solder the other end of the wires on the 
sv\ itch. Make sure the center wire is soldered on the 
enter pin ol tin switch. Make sure than you solder them 
on both sides of the PCB 

Transition Connector J1 

For the transition connector you have two parts, one 
with the pins and the other is the cover (J 1) Solder the 
pins part on the bottom side of the PCB only. Then 
install one end of the 20 conductors flat cable between 
the two parts of the connector. The red wire most be on 
the right side as shown in Figure 8. Use a small vise to 
crimp the flat cable into the connector. Be i arefu! with 
the aligment of the flat cable and the connector. 

Then at the other end of the flat cable, install the two 
DB-9 female connectors. Next, remove an eight-inch 
section of the two center wires. There should remain 
nine conductors on each side ol tl . ble. 
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Left: Figures 10 & II 
Opposite; Table of Ports. 
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np the two connectors DB-9 on each part of the 
hie I ake care with pin I of the connector; it 
should match with the red wire for one side. Then the 
other connector should go with the pin 1 on the center of 
the flat cable: refer to Figure 8. Now r you are ready to test 
init 

I hi mi e connecting the unit to your Amiga, inspect 
the \\ B and your solder joints carefully. If you h 
magnifying glass, use it to check if you forgot a solder 

j have shorts between two pads or two 
traces. 1 his operation if very important and could 
prevent damage to your computer, The time you spend 
on inspection could save you lots of trouble and time 
debugging your unit. If you have done a good job 
soldering the parts, the unit should work right away. 
] In most common problem is a forgotten solder joint on 
the top suit' oJ the board. 

i the inspection, you are ready to connect it to 
i computer without the chips in the sockets. Be sure 



your computer is off! Remove the mouse and tht |u 
U von have one already connected. Then connect the 
unit to your computer; the connector with the red wire 
should go to the mouse port. Turn vour computer on 
and with a multimeter check if you have +5 volts on 
each socket according to the schematic. If you have all 
the sockets with the « 5V and your computer still boots, 
then an important part is done. Otherwise, turn vour 
computer ofl immediately and double-check your PCB, 
tally the trace with the +5V on it. 

With your computer still oi\\ install all the chips in 
their appropriate sockets and connect the mouse to the 
unit in the left connector; refei to Figure 13 You can also 
our joysticks to the other connectors. Turn vour 
computer OH again. Your pointer should move with the 
mouse as before 

If the mouse is OK, then i first test-fire the 

button ot the joystick, which is connected in the center 
connector. This action should freeze the m 
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Parts list for AUTOSW 

Qty Reference Description 

1 U3 74HCTLS157 

1 U2 74HCTLS74 

1 U4 74HCTLS08 

1 U1 555 Timer 

2 Q1.Q2 Transistor 2N2222A 

3 J2.J3.J4 DB-9 Mate. RS #276-1427 
2 J5.J6 DB-9 Female flat cable 

1 J1 20 pins flat cable transition connector (see note 

below) 

1 POT1 Micro-potentiometer 100 Kohms, RS #271-284 

1 SW1 Switch SPDT RS #275-662 

1 R2 4.7 Kohms 1/4W 5% (yellow, purple, red. gold} 

4 R6-R9 4.7 Kohms 1/4W 5% (yellow, purple, red. gold) 
4 R11-R14 4.7 Kohms 1/4W 5% (yellow, purple, red. gold) 

2 R3.R5 10 Kohms 1/4W 5% (brown, black, orange, gold) 
1 R10 12 Kohms 1/4W 5% (brown, red, orange, gold) 

1 R4 33 Kohms 1/4W 5% (orange, orange, orange, gold) 

1 R1 2,2 Kohms 1/4W 5% (red, red, red. gold) 

1 R15 9.1 Kohms 1/4W 5% (white, brown, red, gold) 

1 C2 1.0 uF Tantallum 

1 C1 0.1 uF Mylar 

4 C3-C6 0.1 uF Decoupling capacitor 

2 sockets 14 pins 
1 socket 16 pins 

1 socket 8 pins 

1 small plastic box, RS #270-222 

1 18 inches flat cable 20 wires 



MQIE; For J1, you can buy it from the next three 
companies or an equivalent. 

- Robinson Nugent #IDT-C20-1-T 

- Ansley #609-2003 

- 3M #3422-0000T 
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press on the If ft mouse button and your mouse should 
work again, 

It is now time to check the two joysticks. Boot your 
computer with a game using two joysticks. Press the fire 
button on the central joystick and try bo move your 
object in each direction with one joystick; then try the 
second joystick 

The last thing you have to check is the rapid-fire 
function of the joj stic k on the right connector. Boot a 
game with shooting action like SideWinder. Adjust the 
potentiometer in the center position with a small screw- 
driver and then press the fire button and hold it. The 
rapid-fire function should be active; if this is not the 
case, change the state of switch "SVVl" and trv again, 



When you have found which position is rapid and 
which is normal mode, adjust the potentiometer for 
speed you prefer. 

If everything works OK the first time, that means 
you have done a good job. Then turn your computer off, 
Disconnect the unit, the mouse, and the joysticks. Now 
you are ready to put it in a box. 

Put the Unit in a Box 

The box I used is the Radio Shack K270-222 plastic 
box. You can use anything you like, but the rest of this 
section concerns this type of box. I designed the PC B to 
fit tightly in the box, there is not much tosl Space. 1 
always like to keep things as small as possible. 

The first thing to do on the box is to I he 

slides inside the box on one side. You will drill the 
for the DB-9 into this side, I used a small cutter to 
remove these slides. Then you can finish the job with a 
piece of sand paper. 

Next cut the three holes for the DB-9 n.v 

tors. The easiest way Is to draw the pattern tor these 
connectors on a piece of thick paper. Put the PCB with 
the connectors face down on the paper. While hold 
the board with one hand, trace a line around each 
connector with a pencil. Then cut the inside part with a 
sharp knife With this template, it will be easier to mark 
the holes on your box. The three holes must be ceni 
on the box; check I ■ Inr more details. After you 

have cut three holes for DB-9 connectors, insert the three 
connectors externally into the box; with this way, you 
will be able to mark the six small holes for the screws on 
DB-9, Then you can install the board inside the box. 

If you put six screws to hold the DB-9, it will be 
enough to hold the PCB inside the box. The next thing to 
do is to cut the edge of the box and the cover for the flat 
cable; refer to Figure 10 and 1 1. 

The next operation is to drill a hole for switch SW1 
inside the cover. Refer to Figure 12 for marking this hole. 
The size of the hole depends on the size of the switch 
you chose. If you have the one specified in the parts list, 
the hole will be 1/4 inch. After you have drilled the hole, 
install the switch according to Figure H You can take a 
reduced photocopv ot Figure 13 and glue it to ll 

I hope you and your computer will feel better when 
young kids want to play a game. If you have any ques- 
tions or comments, please write. 





Please write to: 

Jacques Hallee 

c/o AC's TECH 

P.O. Box 2140 

Fall River, MA 02722 
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Let AC'S TECH quench your thirst! 

AC'S TECH, an oasis of 
Amiga Technical Information 



Amazing Computing Gives You 
Great Reasons to Own an Amiga 



/{mazingJLwGA 



Amazing Computing provides its readers with: 
In-depth reviews and tutorials 
Informative columns 

Latest announcements as soon as they are released 
Worldwide Amiga Trade Show coverage 
Programming Tips and tutorials 
Hardware Projects 
The latest non-com mere ial software 



ACs TECH Gives You Great Reasons 
to Get Into Your Amiga 

ACs TECH offers these great benefits: 

The only disk-based Amiga technical magazine 

Hardware projects 

Software tutorials 

Interesting and insightful techniques and programs 

Complete listings on disk 

Amiga beginner and developer topics 




Order a SuperSub and get this great Amiga peripheral 

— World's best authority on Amiga products and services 

— Amiga Dealers swear by this volume as their bible for Amiga information 

— Complete listings of every software product, hardware product, service, 

vendor, and even user groups 
—Directory of Freely Redistributable Software from the Fred Fish Collection 




12 Issues of Amazing + 2 ACs GUIDEs! 

SUMMER 1993 ACs GUIDE IS NOW 

AVAILABLE! 
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High 

Resolution 

Output 

from your AMIGA™ 
DTP & Graphic 
Documents 



You've created the perfect piece, now sou 're looking for a l'ihhI sen ice bureau for output. You wanl 
quality, but it must be economical. Finally, and most important, .you have to find a service bureau that 
recognizes your AMIGA file formats. Youi search is over. Give us a call! 

We'll imageset your AMIGA graphic files to RC 1 aser Paper or Film at 2400 dpi (up to 154 Ipi 
extremely competitive cost. Also available .it competitive cost are quality Dupont ChromaCheck™ 
c°loi ; ir color separations/films. We proi ide a variety of prc-press services fot the desktop 

publisher. 

v\ ho are we? We are a division of PiM Publications, the publisher of Am the 

I WGA« We h taff that m:(;\ know s the AMIGA as well as the rigid mechanical 

requirements of printers/publishers. We're a perfect choice foi AMIGA DTP imagesetting/pre-press 

sen ices. 



upport neari \ &D >rmat as well as most Mat mtosl DTP 

formats. 

For spt-i ifit ■ format infi \ , please i all. 



For more information call 1-800-345-3360 
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( Jul', broadcast quality genlock for less 

than vi«H«u 

Two independent dissolve controls 

Software Linilnilljble 

f i nii|ij' iblc '•■■ nli At Amiga moil.-K 

NOU I, hll.i 
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I III II II Rl IS HKRK! 



Create spectacular true color animations on 

your A i nil". i 



Sync 



% 



|\\<>< HWM'l I H< SYSTIM 




The ntiins(r\' standard - yet (o be equaled 

SuperGen 



$549,00 



Super Gen 2000 = 

I HI FIRST TRUE Y/CGENLOt K 
\MK>\| HI \Y< \KOHHUIII 
\\IHi\:iMMls| Kll si i»\tl'L II K 



S-VHS. Et^BETA.HiS compatible 

Bo '.i« least quality NTS<'RS I 

SCVH phase adjustabilit) 

Hull; in lync genemoi 

tun independent dissolve control* 



beautiful full color 
• iu- vide ages on an) Ami 

Capture an image in Jo nn an) 

,i mem or stable video souft C 

i'ull featured paini, digitize aitd comcrsiim 
included. 

Compatible wifjl 'a i A 1200 Rfld 4rXHl 
Amiga* in NTSC/PAI modes [wo 
times the speed ol AGA :immaiinns (DCTV 
^ HAMS) Miih an 

Compatible wiih -ill popular 3D. rendering 
jtwi graphics packages including: 

AD Pn»i Aladdin ID, ^rai 
Brilliance, Calligan. CTnfcrnorph, 
Draw4D, Image Master, lm.iv 
LightWave, MorphPlua, Real 3D, 
Scala, Scenery Animator Sculpt. 
I'm. ;nid man\ others... 







PRICE1 



DCTV 
(NTSCorPAL) 

$299.00 






Mi..- Kttcher Sync provides two channels ol 
rrei tton ihe porfc* i bom coat 
TBC solution for the \ -' m . 

Willi .' Video roaster, the Kitchen Sync 
provides .i complete A/B n?ll ediiinp system 

umplete inlimte window lime bay 
Bars "ii one IBM \ I • \ 1 1 1 1 ■ ■ .i 

■st qualilj 

I Ulll 

■ Includ conurol panel 

- No waveform iii.iiiiiiii needed 

• \ an. i hi'.' speed strobe 

• l'ree/c l-raine, two rock- wild Freeze lieliK 

i .i-irisumplion 

• Lowevt TBt" price per Lhannei 
Works '.uih consume! grade ■ 

Kitchen Sync 
$1295.00 






RGB CONVERTER 



A Howv ilte jgc ol 
IX IV wit'li sl.inil.ml 
RGBniLMiiiorM 1084) 

■ 
PAL modes \ho 
permits Ihe 
external genlocks like 
our Superticn. 



Super! itii 2000s 
$1195.00 




Genlock Option 

Required 10 synchronize the Kitctvcm S 
.in eMem.il video source. 



Genlock Option 
$150.00 



K(iB Converter 
$199.00 



FREE SHIPPING 
on all VISA & MC orders in the US. 

Next Day Shipping add $5.00. COD - Cash only - add S 10,00 
Call by 2:00pm PST/5 :00pm EST for same day shipping. 



DIGITAL 



Worldwide Distributor* and Dealer* Wanted. Inquiries invited. 



S-VHS Option 

Required n> enable S VHS/Hi 8 iY/O 

S-VHS Option 
$99.00 



CALL 
DIGITAL 

-^*DIRECT 

1-800-645-1164 

Orders only 

9:00am to 5:00pm PST M-F 
For technical informal km i call fl 16-344-1825 



I E A T I O N 5 RO, Box 97, FolsomCA 95763-0097 'Phone 91 6'344'4825' FAX 91 6'635*0475 

SuperGen, SuperGenSOOOs. DCTV, DCTV RGB Converter, and Kitchen Sjmc are trademarks of Digital Creations, Inc Video Toaster is a trademark ot Newtek, foe. 
IBM and IBM AT are registered trademarks of IBM, Inc. Amiga is a registered trademark of Commodore-Amiga, Inc. 






